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ABSTRACT 


The Hellenic Air Force storage/utilization database 
management system (DBMS), utilizes mainframe computers. It 
is a system for large applications, such as big business, 
and it is used only at the Air Force Headquarters level. 
However, the need for an extension of this system, to lower 
levels, has been recognized for a long time. 

This problem can be resolved through the implementation 
ua ne DEMS programs developed tor this thesis, and the 
utilization of DBASE II software applied to microcomputers, 


vice the larger, more expensive, mainframe computers. 
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I. INTRODUCTION 


An amazing amount of progress has been made in the com- 
Re A ici Sinmice (Che primitive computer age of the 1950s. 
Bersonal computers, realistic graphics, high-level languages, 
artificial intelligence, music composition, and many other 
technological advancements have been made in a period of only 
35 years, and new applications are being discovered every day. 
However, a tremendous management problem has been generated 
because of the unpredictability of software development time. 
several solutions to this problem have been introduced to help 
the software keep up with the more sophisticated hardware. 

e opinion of the writer, one of the most effective ap- 
proaches is to let the “same computer" solve the software prob- 
Lem, thus causing increased complexity in the computer. Now 
iii“ slogan 1n the field of computer science is: "Fight the 
Bemplexity with the complexity" [Ref. 1]. That means that we 
should try to load as much as possible into the computer hard- 
Due in order to decrease our working time, since the speed 
11 conseguently, the efficiency of the hardware on the modern 
Computer has been increased to the imaginary level. 

(ae Mene e pivot recursive Construction tries to balance 
[S software development time and cost, by improving and auto- 
mating the computer process. Starting from a system that 


controls another less complex unit, we create a bigger system 


to control the previous one and another that controls 39D 
system to control the previous and another that controls the 
bigger one and so on. Thus the idea is that we can begin 

with a minimum of structure, then provide masses of data and 
wait for the program to solve its own complexities [Ref. 1]. 
Therefore, an individual works only on the understands 

main menus, by using simple instructions without being engaged 
in the intermediate processes. This progressive aspect 0100 
computer has been enforced in the various fields of computer 
science, and this principle has recently found greate app 5 
tron in the design ot databases" 

The idea of recording and maintaining information mim 
organized manner appeared many years ago, when the value of 
organized information was realized. The importance o pr 
idea is stressed in the Spinoza expression: "The order 158 
connection of ideas is the same as the order and connect. 
of things" [Ref. 2]. However, the appearance of computers 
started enforcing this idea with the implementa onec 
applications on the Computer: 

The use of automation and parallelism theories has also 
helped the designers to make retrieval of very large databases 
very easy, and in extremely timely manner. These capabl he s 
of the database have recently been appearing on a variety of 
modern database machines some of which are briefly described 


below: 


1. VERSO (a relational backend machine): it is being de- 
veloped at laboratories and its main feature is a hard- 
ware filter that can process data at the speed of 2 
million characters per second. 
2. SABRE (a relational database system for a multimicro- 
processor maeitinej Me" represents several original 
ideas in database design such as the clustering of 
data, multiple views of a database, joint algorithms 
for relations, guery evaluation, and integrity control. 
FUI Text Information Retrieval System: can- access a 
database of tens of billions of characters in a timely 
eer "Ee for interactive 
guer orma tron and refinement is provided to the 
Sloveni dene rite c tate autemndton architecture 
mechanism [Ref. 3]. 
This automation mechanism finds all the combinations of the 
possible movements from one stage to another, keeps track 
mwe the various paths, and selects the optimum one. The mag- 
nitude of these machines can be captured by the human mind if 
we imagine that it can read an entire newspaper in only milli- 
seconds. This tremendous progress in database design has re- 
Embed in lower cost, and has provided a strong motivation for 
Meh kine in the database development field, especially on very 
large databases. 

An additionally strong motivation for working in the data- 
Ese field is the wide variety of database applications. These 
dpl ications include manufacturing with inventory management, 
the servicing of industries with lists of service capabilities; 
ssesmom)ic models with production data for allocation and plan- 
mami, and medical services with patient records, disease histories, 


problem classification, and treatment effectiveness data [Ref. 


aj. Thus, databases are appearing and supporting almost every 


science. It might be said that it is the database 671 14 
computer application. 

An important consideration in the design of the data- 
base is the way of storing data, which is used for a broad 
variety of applications and can be used to make Changes 
the data quickly and easily. The ability of the database 
to be applicable in so broad an aspect of applications is 
based on a common feature that makes database development 


valuable and general in a programming methodology. This 





feature is a creative form which is called "structural grann 
This "structural growth" should start with a solution eu | 
simplified version of the problem and then repeatedly expe | 
its capabilities up to the desired level. This feature mu 
provide a multiple of "hooks" for the user, ways that chema = 
may insert his/her own code to effect behavior of the system 
[Ref. 4]. 

One useful tool that supports this structural development 
is a working model, a prototype, which has recently become 
possible only with the development of more powerful procedural 
based languages. Two other basic tools are the data dictionaries} 
and strong modularity. In Chapter IV we will exams mas 
capabilities of these tools and we will see how all ot me 
tools provide a strong basis for the relational databace 
management system (DBMS) development. 

Among these potential applications, the military reg MEL 


ments for economic, medical, battle planning per ene! 


10 


SCOR and organization, storage organization, and 
work scheduling information are of primary importance to any 
defense organization. 

(l ili nes Che advantage af the wide applicability of 
WE SE JE, the objective a£ this thesis is to provide a 
generally useful package for military application, and 
iu «111cally, to meet the reguirements of the Hellenic Air 
merece Storage Organization at the lower levels of utiliza- 
tion, and to enable the Hellenic Air Force Material Staff to 
Mone easily handle the queries of "part demand" by using 


[me rocomputers. 
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II. OVERVIEW OF THE MANAGEMENTS oe 


A. WHAT IS A DATABASE MANAGEMENT SYSTEM (DBMS)? 

A database management system is a software tool that is 
used to manage and maintain an organization's database re- 
sources. The database management system does no depend on 
any application program or specific filé, but can be u 4 
to provide data to several application programs [Rei rim 
335]. A major role of the DBMS is to enable the user tome 
with the data in abstract terms rather than as the computed 
stores the data. The DBMS allows the user to specitv 0t 
must be done, with little or no involvement in detailed al- 
gorithms, or data representation used by the system [Rei IP 
p. 1]. DBMS provide a means of easing some of the problema 
of managing data in large-scale management information systems. 
Although the database management system provides facilties 
and great assistance to the user by reducing much of his; in 
potential errors, it is one of the most complex variations 
software in existence. 

B. INTERACTION OF THE PROGRAMMER/USER WITH THE SYSTEM 

The description of the database is written in a spo > 
ized language or Data Definition Language (DDL), and 15 som 
piled into tables that exist in the system. Programs tmo 
permanently stored in the DBMS which are used to man puce 


the data are called application programs. A colleéC+er u 08 
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routines that is used to process queries is called a database 
manager. A database manager translates the query into terms 
that the file manager understands. The database manager pre- 
vents the duplication of data by storing everything in a 
single database, it reduces the program development time by 
Meme many routines, and it improves the reliability of the 
system by automatic integration of information and the rela- 
meonship of information [Ref. 7: p. 14]. 

The file manager may be provided by the underlying opera- 
line System, or may be a specialized file system that contains 
all the information about the storage of the data. The data- 
base manager with the assistance of the file manager, can pro- 
Nade rapid access to, and manipulation of the database. The 
Metabase manager usually performs other tasks, such as the 
following: 


6. Gives ties ability to the user to protect the 
access of its data from unauthorized persons. 


DR ait Enables tne DEMS to check the data whenever 
a user uses a command to insert, delete, or change some 
data. 

11 Cvnehrenizat1lon. Provides protection to the DBMS against 
inconsistencies that are caused when two or more approx- 


imately simultaneous operations occur on a data item 
[Ref. 6: p. 4] 


In figure 2.1 we can see the components that comprise the 


whole system. 


meee LEVELS OF ABSTRACTION IN A DBMS 
A fairly standard viewpoint regarding levels of abstrac- 


anis the three levels of presentation (views, conceptual 
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USER APPLICATION 
PROGRAMS 


DATABASE 
MANAGER 





FILE 
MANAGER 


PHYSICAL 


MANAGER 





Figure 2.1. Schematic Diagram of a Database System 


database, and physical database), which are shown in figure 


Ze 

1. The views are an abstract model of a part otwan 
conceptual database. A facility for declaring views en 
a subscheme data definition language, and a facility san 


expressing queries and operations on the views, are can 
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USER GROUP 2 View 2 Conceptual } Physical 


Database Database 





Figure 2.2. Levels of Abstraction in a Database System 


subscheme data definition language, and a facility for ex- 
pressing queries and operations on the views, are called a 
subscheme data manipulation language. An example of the 
Mero the different views could be set, an airline with a 
computerized reservation service system, that is concerned 
only about the flights and passengers. However, another sys- 
tem (view) would be concerned about personnel files or assign 


Lot mechanics to work on specific airplanes [Ref. 6: p. 6]. 


LS 


2. The conceptual database is just an illustration 0 01“ 
real world. A DBMS provides a data definition language (DDL) 
to specify the conceptual database. DDL is a high-level 
language that is used to describe the conceptual datata- CEE 
regards to a data model. 

3. The physical database is stored permanently on 


secondary storage devices, such as disks and tapes. 


D. BENEFITS OF THE DATABASE MANAGEMENT SY SEN 
A database management system can be a complex and expensive 
tool for an organization. The installation of a database im 
agement system increases substantially the entire data process- 
ing cost of an organization, since the initial cost may ran 
from $10,000 to over $200,000. For that reason an organization 
must compare the overall costs of a DBMS with the benefits to 
be gained from its use. The advantages of DBMS Come frome 
1. Improved control. The DBMS improves the control ot 488 
in numerous ways. Data can be organized and structured 
so that it is suitable for many application systens 00“ 
addition, control over input and use of the data mm 


proved. Control is also improved for privacy and ee 
of data by using the built-in procedures of the DBMS. 





2. Evolvability. The ability of DBMS to be adjusted s 
meet changes caused by either usage requirements 
technological improvements. 


3. Service. Service may be improved at a lower totom > 
to an organization because of the more efficient 1“ 
of storage space and substantial reductions in program 
maintenance costs. The reduction of the program main- 
tenance cost is importance since typically mor cch m 
half of the expenses is absorbed by the software Sy c 1- 


4. User Benefits. In addition to the previously disew iii 
benefits, we can add some others that go directiva 
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la ly. Ser by using the different skills from 
the different levels of languages, can interrogate 

ene database to fine tune” requests. Thus, they 
recen eee ea ppr Opi date information, with less of 

the irrelevant information often associated with some 
Dac 01 gCU rar 1 u pet c. Similarly, through direct 
interrogation, users can find answers to those un- 
anticipated inquireis that play an important role in 
rapidly changing organizational environments [Ref. 5: 
pi.“ 522: 
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III. BASIC MODELS OB" HEMUENE 


There are three basic models of the database management 
system. There are the network, the nierarcňice omm MM 


relational models (figure 3.1). 


DATABASE 
MANAGEMENT 


NETWORK HIERARCHICAL RELATIONAL 
MODEL MODEL MODEL 





Figure 3.1. The Three Database Models 


A~ Hierarchical 


A hierarchical model is a special case of the network 
model. <A hierarchy structure can use ordering conventions 
for the segments. The characteristic of this model is that 
each descendand (child), has to have, at most, one link ann 
the other file. In addition, this link must EINEN 
from ascendand to descendant. Thus the basic operation on a 
hierarchical database is a tree walk; that is, given a node 


(which represents a record of the database) of the database 
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tree, we search all its descendants of this node. The figure 
3.2 shows the hierarchical model of the same organization 


depicted in the network model. 


DEPARTMENT 
NAME MANAGER 


EMPLOYEE ITEM 
EMPL 1 ADDR ITEM # NAME PRICE 
MANUFACTURER 


NAME ADDR M PRICE 


PROC IE rarenjeak Model 

B. NETWORK 

A network is used when applied structures are more com- 
plex than hierarchies, a special case of the network model. 
The characteristic of the network is that its links are bi- 
mectíonal, allowing us to travel either from many to one or 
from one to many files. The figure 3.3 shows the schematic 
representation of one organization by using the network 
System. 
mm RELATIONAL 

The relational model is quite different in its organiza- 
tional structure. Information is stored in two-dimensional 
files, and the manipulation of its queries uses the relational 


jus. It uses indexed tables for fast search and 


IS 


DEPARTMENT 
MANAGER 


EMBLOXEE MANUFACTURER 


NAMEJADDR ITEM #]NAME|I PRICE NAME | ADDR 


NEGER 


PRICE 





Figure 3.3. A Network Model 
retrieval. The uniquely identified attribute of an Index 
file is called a key, and is represented by underlining the 


attribute showed in figure 3.4. 


DEPARTMENT (DNAME, MANAGER) 


EMPLOYEE (EMP #, NAME, I PRICE) 


ITEM (ITEM #, NAME, I PRICE 


MANUFACTURER (MNAME, ADDR) 
Figure 3.4. A Relational Model 
D. COMPARISON. OF THE MODES 
The relational model is easier to use than the other © «8 
models, because it provides only one concept, the relations 


ship, that the programmer must know very well. Further, the 
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network model requires our understanding of both record 

Mm pes and Pinks, and their relationships. The implementa- 
Mion or ‘many to many" (linking from many records of one 

file to many records of another file) for more than two 

files provides serious complexity. Similarly, the hierarchi- 
cal model has the same problems as the network has, because 
Me requires understanding the use of the pointers. 

From the aspect of efficient implementation, the network 
and hierarchical models clearly win. This happens because 
Of the difficulty of the relational model to implement "many 
to many" relationships. Here we should add an intersection 
file (with the fields including at least the keys of the two 
files), that causes problems and creates complexity on the 
system. 

The last criterion of the model's evaluation is the 
language that supports each of them. From this aspect we 
mere that the relational DBMS requires support by high-level 
languages, while DBMS based on other models have a tendency 
to use languages of a lower-level. The high-level language 
iiov ides a single "data type" for the relationship. In con- 
mast, lower-level languages enable the programmer to use a 
variety of data types. This variation of the data types 
used in the network and hierarchical models provide efficient 


implementation, but require skilled users. 
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IV. TOOLS THAT SUPPORT A DATABASE 


The increasing productivity of systems development, the 
shortening of the response time of the computer "and 
increasing complexity of computer systems, require effective 
tools that will be capable of processing information THIS 
Chapter covers advanced tools currently available to meet 
these challenges. In the opinion of the writer, such. 
as prototyping, data dictionaries, and modularity, are the 
Appropriate choices: 

Ae ROTO PE 

1. What is Prototyp ine? 

Prototyping has proven to be a valuable technique 
throughout the engineering sciences. Its name comes from 
the Greek words "protos-first'" and "type-model" [Reta 
p. 26]. It is not a new concept. Software systems are nem 
constructed today in much the same way that they have been 
for the past two decades. In some instances, scientists and 
engineers with sophisticated support environments have m 
prototyping as an alternative approach. They realized E 
"pilot systems", are necessary and useful tools which redes 


the inherent technical risks created with developins 0 © 


software. Prototyping is a hand-crafted version of a m 
production model [Ref. 8: p. 14]. “Prototyping” Sis uate 
defined as: "a perfect example of a particular type 0080 
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Nin originalior medel after which any thlng 15 formedď" [Ref. 
cape IS) MU is a technique which offers the probability 
ma delilverang a clear, correct, and validated requirement 
statement o£ the user's need. 

ZAN roime “ite. Cycle 

The development steps that a system should follow, 

when using a traditional management iníormation system ap- 
proach, are shown in figure 4.1, and the developnent steps 
of a system using the prototyping techniques are shown in 


figure 4.2. 


Feasibility 
Requirements 
Preliminary Design 
Detailed Design 
Integration 


Implementation 


Operations and Maintenance 





EU U I dditiomal Life Cycle Technique 

The figure show that the only difference from the 
EE Urtronal technique is in the requirement steps, which ap- 
a Mn the prototype technique [Ref. 10: p. 165]. On the 
substeps of the prototyping development, we can see that the 
key mechanism of the structure is the iteration process. The 
iteration process gives us a high-degree of confidence in the 
4197 guality and completeness of the design [Ref. 11: p. 25]. 


Se 


Feasibility - 1. Identify basic needs 
| - 2. Develop working model 
Requirements - 3. Demo in context 
- 4, Implement revi mou 
Preliminary Design - 5. Is prototyping done? 
If Yes, go oniro 
Detanstedi esum detailed design 
| Else, go back to 
Integration Preliminary Design 


Implementation 


Operation and Maintenance 


Figure 4,2, Prototype Lite Uycle Techno 
9. EE 

The main benefit of prototyping is its ability eee 
bridge the communication barriers in the development process, 
This feature enables the prototyping to create a dialogue 
between human and machine, allowing the user to make minor 
changes quickly. In addition to this benefit, the prototyping 
approach has numerous other advantages during the development 
Or alsystemsé stena: 


- Prototyping technique is usually faster than traditions 
methods. 


- It permits assessment of the impact of the system on the 
entire user environment. 


- It permits early testing of the human/machine interface. 
- It provides a medium for validating requirements 
= It requires fewer programme rok 


- It reduces the life cycle costs by reducing the marr c 0“ 
Cost. 


- It is developed with correctness in mind [Ret. 2- 00008 
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4. Prototyping Limitations 


In spite of the numerous advantages of prototyping, 
it does have limitations. The major limitations are: 

EP rototypes ire mom developed with efficiency in mind 
[Ref. 2: p. 26]. (This is caused by the decrease in 
software development time and the use of fewer 
programmers). 


= Protetyping does not necessarily result in shorter devel- 
opment time. 


- It is possible for a programmer to leave out some major 
part of a system during the development phase. 


- Because of extensive use of the iteration process, time 
oli imamo procedures are difficult. 


EN :ototopsng rs not appropriate for all types of 
applications. 


Although these limitations seem to degrade the value 
of prototyping, it is clear that most of these problems can 
meesolved as more experience is gained. 

= Prototyping Applicability 

imemoscatest petential advantages of prototyping 
appear on large systems development. Algorithm based prob- 
lems do not create an appropriate environment for fast itera- 
Eu On the other hand, on-line transaction processing 
based applications work perfectly by using the prototyping 
technique. Prototyping can also be used as a basis for 
bottom-up integration. It can do an evaluation of update 
and retrieval efficiency, and can be used to simplify the 
implementation and acceptance of a new system. 

Prototyping can also be used to improve the physical 
database design. In order to understand this improvement, 
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we can think of the relational database as a "pilot model" 
which is the structure of the database file, and then the 
iteration feature of the prototyping will be applied 
sequentially.on all records of the same TICE 

However, in addition to the assistance that Ten 
vided by prototyping in the database software development 
design, the data dictionary tool should also be available 


for use. 


B. DATA DICTIONARIES 

A data dictionary is used for the definition and the 
recording of the data elements, and the handling of tng 
logic representations such as decision tables, and strc cun ii 
English. It is a document that provides details of each 
data file that is described [Ref. 12: p au c jv 

A typical data dictionary entry is presented in figure 
4.5 [Ref. 15: p. 126]. It should include the manero 
data item, where it is used, its purpose, where it ISELE 
rived from, its subordinate systems, and any other apps 
priate notes. 

We can see that the relations are composed from fields 
of the data records. These fields are called domains of the 
relation. For example, the record "ORDER" has seven fields 
as in figure 4.3. ORDER ("customer-identity, order-dates 


catalog-number, item-name, unit-price, quantity, total-cost). 
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DATA FLOW: ORDER DATA STORE: ORDER-DATE 


COMPOS TETON: COMEOSITION 
CUSTOMER-IDENTITY TIME 
ORDER- DATE DAY 
IME ORDERED MONTH 

CATALOG-NUMBER YEAR 
ITEM-NAME 

CNIT ERICE 

QUANTITY 

TOTAL- COST 


Emtoute 4.5. Example of Data Dictionary 

The value of dictionaries to the maintenance staff of a 
System are obvious. Much of the information conventionally 
gathered by cross reference programs can be entered into the 
dictionary, and when a program object is to be changed, 
reference to the dictionary should be made to ensure the 
changes are accepted by the system [Ref. 12: p. 187]. 

u cs ca dictionary can define attributes of the 
data, and relationship among them, it can be utilized as a 
source of information that is needed by prototyping. 

A data dictionary may also contain the output of proto- 
typing in an organized database, and generally should be the 
“1 Factor to integrate all the conceptual output that is 


produced by the tools that are being used [Ref. 14: p. 250]. 


fee MODULARITY 
Modulus always refers to parts that can be put together 


to make a complete system. We can think of the modulus as a 
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work assignment given to a programmer or group of program- 

mers in order to construct a complete system by putting 

their assignments together. The use of modulus and sub- 
systems provide a powerful abstraction mechanism since bh: 
parts of the whole system can be compiled separately k 

can use their libraries, and they can link the library m0 
into the object code. Systems with strong modularity com mm 
of sell-defined manageable units, and with well-defined inter- 
faces among the units. For well designed systems, the modular- 
ization criteria should have the following characteristics 


1. Modules which contain instructions, processing lo a 
and qata structures 


2. Modules which can be separately compiled ans stor 
5. Modules which can be included in a pwe man 


4. Modules which can utilize other modules [Ref. 13: p. 
JU ZE 


All of these characteristics make the modularity power- 
ful and very useful throughout the computer sciences, and 
provides effective solutions, especially in the large ama 
Complex programs. 

In the relational database, modularity can be used a8 
integrate the developed structure of the system in Ordes 
be more understandable and easier to handle by the user. 

Examples of modules include procedures, subroutines) ama 
functions. Noam 1e the designer to separas 


a system into functional units, to establish the hierare iu © 
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feature of the ordering, to implement data abstractions, and 


to develop software by using subsystems [Ref. 13: p. 147]. 
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V. OVERVIEW OF MICROCOMPUTERS 


A. INTRODUCTION 

In general, by the term "microcomputer" we mean as 
computer program comprising memory and input/output circuits 
together with a microprocessor (CPU), residing on one or more 
chips. Microcomputers are a recent technology and are imi 
cepted by many people because they provide several advantages 
as compared to the larger computers. First of all, mwenn 
computers are not as expensive as the mainframe, and can be 
very helpful for many people for personal use. Second nn 
computers are powerful, reliable, and can be used for a wider 
range of specific applications. Third, they are accepe nm 
to any environment and can replace the older computer SM 
require additional funding for maintenance personnel and 
Special facilities (air conditioned rooms and large space“ 4 
However, the limited access speed and the limited storage 
Capabilities are the major disadvantages of microcomputers 


[Ref. 15: p. 11]. 





B. PROBLEMS AND CHARACTERISTICS OF THE MICROCOMPUTER-BASED DBM@ 
The use of a database management system (DBMS) in the 
microcomputer environment is a relatively new orientation 
Recently many DBMS packages have been tailored for the mess 
computer. They have become very attractive) (6 chodu m 


because of the high cost of the larger computer -= 
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requirement of less memory storage for the smaller systems. 


In spite of the fact that the new packages were developed 


independently of the mainframe DBMS, they still have similar 


characteristics and problems, such as: 


j. 


Concurrency Control. The special problems which take 
place when a database is accessed by many users. For 
example, when two users simultanteously lock and access 
two records, and then they both attempt to lock the 
second one which is locked. This problem (deadlock) 
disappears when the record is unlocked. DBASE II does 
MON SIE any mechanism ta entorce Concurrency. 


Transportability. This issue as focussed on two levels. 
Portability of application programs and DBMS in high- 
level language and portability of DBMS machine. DBASE 
II is offered on CP/M and compatible systems. Since 

I ka speed at mun time, only the interpreter is 
modified to run on other systems. The language of DBASE 
IT remains the same. 


Integrity and consistancy. The ability of the DBMS to 
determine if the entered data is appropriate and valid 
for further processing. DBASE II has rather limited 
consistancy checks and it does not provide a range 
limit on all insertions. 


DE o umika MI nis important feature should concentrate on 
several things. The prevention of unauthorized access 
and modification to data in secondary storage; the pre- 
PAT NI TOM ON unauthorized access and modification to data 
when the DBMS is in use; and a provision of selective 
s mi ii sto control access to the individual fields of 
ANNE Ona DEASE TI does not provide any explicit 
security. We could use a password protection by creat- 
Mp cute command file, but this protrection could 
be by-passed by reading directly to the command files. 


nasli protection and recovery. The ability of the sys- 
u ll (© recover in case of a hardware failure. Typical 
problems which take place are disk damage, temporary 
power failure, and transients in the power supply which 


enn emata in memory to be mixed, etc. DBASE II has no 
special functions to protect the system from damage 
Gaused by the hardware. The only protective operations 


are the echoing of the operations and transactions to 
Pie printer or a disk. Consequently a backup copy is 
the best way of recovering from such problems. 
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Cry DBASE" Mi gele S 

DBASE II is a relational DBMS. However, since the re- 
lationship of the different files of the same appiicauaem 
is not stored in the system, we can not say strictly that it 
is a true DBMS. The main advantage of DBASE TI 15 Cha 
provides simplicity in application programming. This means, 
it can be easily used by programmers with a minimum of ex- 
perience. DBASE II can be applied to the financial mann 
facturing, home, and business fields. Some typical application 
ine bude 


* General ledger, accounts receivable, accounts payable, 
payroll, job costing, and legal office accounting. 


Inventory control, purchase order systems, project Manages 
ment, time scheduling, materials requirement planes 
invoicing systems, and order entry Me 





Stock portfolio management, games, simulations, nutritional 
analysis, tape and record collection management, Coupon 
exchange management, recipe file control, home budget 
analysis, and tax computation 


Real estate management, mailing list management, ticket 
ordering system, time billing, and personal anan 
mailings. 


Some of the features of DBASE II are: 


A large degree of program and data independence NE 
structures can be altered without the necessity o: nay 
program changes 


* Data can easily be added, edited, deleted, sorted, indexed g 
or reported using a minimum Of) programe | 


Reports can easily be created from data in a dat 0 4“ 
using mathematical operations like multiplication m 
division. Subtotals and totals can be easily generated. 


Professional screen formats can be created for data enn 


You design the entire screen, and data entry only requires 
the operator to "fill in th nm T 


D 


ll rmeernal language 15 e€xtemely powerful with single 
mammands since xing, sorting, and reporting. Often 
Mocro eean be developed five or ten times the speed 
Br Moe cla pime MeguvvaVenu BASIC programs. 


% The internal language is a structured language, and its 


programs are far easler to write and update than un- 
Snc tured programs Ref. /: p. 12]. 


25 


VI. APPLICATION OF DATABASE SUEY DiGi m 


This chapter describes the steps taken to develop the 
Hellenic Air Force Storage/Utilization database management 
system, and provides the course application programs to 
support the needs of the user.:-Exämple reports rs. 
included to demonstrate how this database can be used to 
provide better Communications and user satisfaction, 

The phases that comprise this development are: the 


analysis phase, design phase, and the implementation phase. 


Aws ANALYSIS PHASE 





Lè inu E 

The analysis phase of software development involves 
requirement specifications that state the "what" of the 
software without implying the "how." The "how" speci Teni 
tion concerns software design and will be examined in the 
design phase section. 

In reference to this thesis, the demands of the 
Hellenic Air Force Storage System (HAFSS) must be specified 
and the objective requirements for the system that is being 
developed must be analyzed. 

2 Soy Sem Obie Gl ves 

The wide variety of models of same-purpose weapons, 

the different types of airplanes, the different mets 


systems, the different kinds of airplane parts ane 
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large number of users that manipulate these parts, has 
recently created a major problem for the Hellenic Air 
Force Storage/Utilization System. Actually the solution 
of this problem is becoming more complex as the demands for 
more effective and more complex weapons systems emerge. 

As a partial solution to this problem, computerization 
was introduced on an Air Force level basis in recent years. 
mis the intention of this thesis to suggest an expansion 
Gi his system, down to the Air-base level, in an attempt 
to increase efficiency in the handling of airplane parts. 

As a facet of this expansion to the base level utiliza- 
tion, microcomputers are strongly suggested by this thesis 
tor reasons which were described in Chapter V. Their utiliza- 
mwan ton sequentially lower levels of the organization will 
revolutionize the current process of stores accounting, and 
Erde the necessary measures of economy of manpower, ensur- 
mase Ehnat sufficient stocks are maintained in a timely fashion. 
NETS utilization, (and due to the limited storage capacity 
of microcomputers), care must be taken to store only that 
data which is pertinent to the tasks reguired. The kind of 
pub that must be retrieved from the system vary, and de- 
Pend on several factors. To meet the demands of the Hellenic 
11111 force Storage/Utilization System, the application software 
developed from this study, is based on the appropriate inputs 


muis directed by the following necessary outputs. 
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INPUT OUTPUT 


PART NUMBER WHERE CAN WE FIND A SPE IME 
PART? 
PART-NUMBER, DATE HOW MANY PARTS WERE ORDERED IN 
A SPECIFIC TIMES ER ver 
USER- NAME DAME WHO ORDERED THE PART AND WHEN 
WAS IT ORDERED 
PART-NUMBER, DATE WHICH PARTS DO WE NEED TO REGE 
SUPE I ITIER NAME SO l WHICH SUPPLIER IS PREFERRED 
PART - NUMBER BUYING A SPECTFICAREARIS 
PARI- NUMBER. GUANTPITY WHAT IS THE REQUIRED QUANT Bigs 
OF A SPECIFIC FA 
INVOICE NUMBER, BY WHICH INVOICE NUMBER NASA 
PART - NUMBER SPECIFIC PART T ADI 
PART NUMBER, DAME n C OST WHAT WAS THE COST FOR A SPE DER 


PART IN A SPECIFIC" PER 
The question remains as to "how" to implement these object- 
ives. The "how" is answered in the design phase of the ama 


krem“ s development. 


Be. SDESPGNOPHASE 

According to Webster. the pne. of design involves SE 
ceiving and planning out in the mind" and "making a drawing, 
pattern, or sketch of" [Ref. 13: p. 157]. In software do mm 
we have two separate kinds of activities. The external design 
1s concerned with refining the software requirements and es 
lishing a bird's eye view of the structure of the system and 
the internal design is concerned with the internal structure 


of the system and the processing details.  mes101 10 


the connection between requirements and an implementation 
that satisfies those requirements, and is the "how" of the 
software products. 

The database system of this thesis organizes the data 
into files, and the data stream is accomplished by the com- 
mand programs of the system. The use of menus and submenus 
de Man ideal way to establish the top-down design were atten- 
tion is first focused on global aspects of the overall sys- 
tem, and then is decomposed into subsystems where more con- 
sideration is given to it. 

Figure 6.1 illustrates the organization of the main menu 


and submenus of the system (by capital letters), and their 


programs (lower case letters). 


SECURITY PROGRAM 


entry 
MAIN MENU 

ADDMENU DELMENU MODIMENU REPOMENU QUERMENU 
adpart depart mopart repart quel 
adarstr dearstr moarstr restpli guež 
adwstr dewstr mowstr Feo er queš 
adsuplr desuplr mosupl pou age gue4 
adjstr dejstr rearstr 
adacstr deacstr rewstr 
adorder corde h Due S Tr 
adusage deusage 

Hale GH ot the Database Programs 
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FIELDS OF THE DATA FILES OF THE AIRPLANE PARTS SYSTEM 


= DESC [ARPLT |SUPLRNA |ARSTRNA |WSTRNA| JUNA [ACSTRNA ii i 


SUPPLIERS 





ORDERS 


ORDNO | DA TE DESC |ORDNA |SUPLRNA COST 


USAGE 





UNSTORES 


— DESC |JSLFNO aa 


ACSTORES 


Figure 6.2. Organization of the Files 
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e = zn: ecd CEN CREE 


The figure 6.2 shows the structure of the files of the 


A EE ENA ane eonstructea according to the specific demands 


Simms System. 


of the files is illustrated in the figure 0.3. 


Also, a hierarchical style representation 


Meaning of 


the names in figure 6.2 follows: 


PNO = Part Number 


SUPLRNA = Supplier Name 


WSTRNA = Weapon Stores 


ACSTRNA = Accessories 
Stores 


COST = Cost 

ZIP CO = Zip Code 

DELIV TIME = Delivery Time 
DATE = Date 


INVNO = Number of the 


Invoice 

ŠSSLFNO - Airpl Store Shelf 
Number 

JSLFNO - Junk Shelf Number 


(E (= Description ; 


ARSTRNA = Stores of Airpl 
Parts 


JUNA = Junk Stores 


QOH = Quantity On Hand 


SUPLRADR = Supplier Address 
COUNTRY = Country 
ORDNO = Number of the Order 


ORDNA Name of the Orderer 


Name of the User 


UNAME 
WSLFNO = Weapon Store Shelf 
Number 


ACSLFNO = Accessories Shelf 
Number 


The requirements of the analysis phase that have been dis- 


cussed in the preceeding section, are satisfied by using the 


above files, and by using the information stored in the fields 


an those files. 


waer the program's control. 


For example, 


All the necessary operations will be performed 


in order tos atis 


fy the first question of the analysis phase, 'where can we 


wind a specific part" 


(with part # 222222), we have to use 


the indexed "parts" file with the key TEPNOU anana wonn 
it until we find the record with the number 222224, r n ee 
more we can obtain the information on where this 0011 40 
stored, including its location, the shelí number 901 vn“ 


this part has been stored, and the guantity-on-nand! 


— 


PARIS 





USAGE | STORE: ORDERS 


Ao LORES stones | stones | kestones SUPPLI HI 


Figure 6.3. File Organization in Hicrarchye = 


C. IMPLEMENTATION PHASE 

This section describes the implementation of the datas 
base system of this thesis, by using the relational mrin 
DBASE Il. Generally, in the operational environment ins 
DBMS provides several functions to carry out the impro m TEE 


tion of the application programs. However, altthougph ta“ 
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principal function of the DBMS is to store, retrieve, and 
modify data, the DBMS provides other important functions 
as listed below: 

EM oro rk ai 


Provide integrity services to enforce database 
constrains 


6“ Provide a user-accessible catalog of data description 
4. Control concurrent processing 

1. Support logical transactions 

6. Recover from failure 

mie rove security facilities 

8. Interface with communications control programs 


Peeeeovraceutility services [Ref. 18: p. 408]. 


la QJ] ror a product to be a relational DBMS, it must 
be a full-capability DBMS, plus it must process data as re- 
Minion“. Im practice, no relational DBMS product concurrently 
provides all of the nine functions. 

The basic characteristics that a DBMS must have to be 
considered as a relational model, are tables that define 
1100: 4nd are processed by SELECT, PROJECT, and unrestricted 
me operations. DBASE II substitutes the principle rela- 


tional DBMS commands with the following ones: 


NU for SELECT I JOIN! for JOIN 

MEET" for RETRIEVE CORY" Tor PROJECTION 
UPDATE" for UPDATE SEA, for FIND 
NSGORE for STORE SORE TE gG Or CREATE 
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Appendix A of this thesis contains the listings of the 
application programs that has been developed by handling 
these DBASE [IT conmmands- 

The organization of these application programs include: 
addition, deletion, modification, reports, manc 
Furthermore, each of these operations is applied to each a 
the database files of the Airplane ls Part Sy rom 

J. Addition Operatione 

The addition operations are applied to all ot w 
files of the system, and their purpose is to add new daa 
to the appropriate file. The addition is accomplished ML I 
actively by program control through the use ct mens) 

The addition process starts by asking the ui 
enter the specific data (part, user of the part, ordered 
part, etc), by filling some blanks on the screen with 
characters or numbers. Then the new data is stored into 
computer memory, displayed on the screen for verification Dy 
the user, and then copied into an appended blank record ns. 
case of the part addition, entries are added om -= 8 
(master) file, plus the appropriate file. For example 
weapon part is stored into weapons data. 

2 Deleeron Operations 

Deletion operations like addition operation w 
applied to all the files of the system, and are Very tage 
Operations. These operations enable the user to delete data 


from the appropriate file interactively. The processes MM 
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by asking the user to fill some blanks of the screen, in 
order to define the specific data that is ho be 
deleted. The program then, takes this input, uses the 
micexcd tile, finds the data of the specific record, dis- 
mbas all the record data to the screen for an additional check 
by the user, and ask him/her again if he/she desires to 
delete this record. In the case of deletion operations from 
Marte the Specific part is deleted from the part 
(master) file, and from the appropriate file. 
S Modi icalion Operations 

Meson pose of the modification operations is to 
AL he User fto Change the data of a Specific record. 
This process starts by asking the user to input through the 
screen the specific data that he/she is interested in modi- 
fying. Then this entry by the use of the indexed file 
teates the appropriate record, and displays its data on 
the screen enabling the user to modify the desired data. The 
E scentrres change the appropriate record on the part (master) 
EN anduthe affected file that keeps the specific data. 

UE NE on Operations 

The report operations enable the system to report the 
Current parts of the airplane stores. The menu driven capabil- 
ity helps the user to get a report for any store he/she de- 
EM In addition to store reports, the reports for the 
Emu ane stores include a submenu in order to provide to the 


w partial report for a specific kind of parts. For 
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example, in the airplane-part store, the usc1T Cd 
(printed or displayed) teports o ele part for the Fightes 
F-4. 
"°. — Query Opera iom 

The purpose of the query operations is to allowed 
user to ask the most important questions that could retrieve 
from the system. Since the number of the queries can be too 
large, a good cooperation between the designer and the user 
is a must in order to design the system to operate oD 


the appropriate aspect according Pro s y Ru p 
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VII. CONCLUSION 

ihe winereased demands of the Hellenic Air Force Storage/ 
lisi 2461011 Alurplane Parts, created the need of decentra- 
lication of the database management system which is based on 
the use of mainframe computers, and performed at the Air 
s Headquarters Level. 

This thesis developes a database application package 
which utilizes a DBASE II database management system, and 
a microcomuter environment for implementation at the Air- 
base Level. The establishment of this system will relieve 
Ma MET rent system from being overloaded, and provide greater 
t nomy, better control of stocks by the Air-Base Commander, 
me Me eent part utilization, and more efficient “on time" 


orders. 


4 5 


APPENDIX A 





foc Ao RR EN try. prog $k kkk akk ak i k k k ko ok kk 


& 


g 


e 


e 


AUTHOR z KONDYLOPOULOS HARALABOS 

DATE ¿ISI 

PURPOSE < THIS PROGRAM PROTECTS THE SYSTEM FROM 
: UNAUTHORIZED ACCESS 


< * km kk kk kk kok ok OK K K OKOR OK ok kkk go kkk k ok 
SET ESCAPE” OPE 
STORE t TO flag 


* 


Create a continue loop 


DO WHILE t 


ERASE 
SET DEFAULI TO D: 
SETTCOLOR 1003013 
a “1 07 SAYOCDA ER O) 
STORE? ' TO mpassword 
0 4,10 SAY "ENTER TO THE DBASE, BY WRITING THE COREECH 
d 4,12 SAY "PASSWORD" 
D 12, 3 SAY “ENTER A BLANK TO EXIT ! 
© 23,3 SAY V ENTER THE PASSWORD " 
SET CONSOLE OCF 
ACCEPT TO mpassword 
SET CONSOLE ON 
READ 
IF $(mpassword,1,1) = * * 
CANCEL 
ENDIF $ (mpassword,1,1)=*" ' 
IF mpassword = "GREEK" „OR. mpassword = "GOODS" 
ERASE 
SET TALK OFF 
SET COLOR TO 20 00 
Q 5,27 SAY VYELCOHE TO THE 0 T DRE 
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SET COLOR TO 30,14 
8,10 SAY * THIS SYSTEM ALLOWS THE USER TO IMPROVE 
10,10 SAY ' THE PERFORMANCE OF THE STORAGE/UTIL IZA- 
12,10 SAY " TION OF THE AIRPLANE PARTS. IL SKA 
14,10 SAY * COMPLETELY MENU DRIVEN SYSTEM, AND THE 
1 710 SAY *' USER JUST FOLLOW THE INSTRUCTIONS ' 

SUN COLOR TO 112, 30 

o. 23.210 SAY CHR(/) + " PRESS ANY KEY TO CONTINUE " 

SET CONSOLE OFF 

WALT 

SET CONSOLE ON 

ERASE 

SET COLOR TO 112, 14 

DO nenu 

ELSE 

ERASE 

SET COLOR TO 112,140 

A 8,15 SAY CHR(7)+"TRY AGAIN PLEASE. THIS IS NOT THE 

DS 7 SAY " CORRECT PASSWORD " 

d 8,67 SAY CHR (022) 

SET TALK OFF 

STORE 1 TO z 

LO WHILE z«10 

Q 8,75 SAY CHR (7) 
IE TO Z 
ENDDO WHILE z<10 
SET COLOR TO 30,14 
END IF 

ENDDO WHILE t 


Y © © a © 


À HR A 5k k ok kok ok Menu, pr **** 3k RR KOR ak MA kk kek 


* AUTHOR z KONDYLOPOULOS HAKALABOS 

* DATE 12-05 

SMPURPO SE < THIS PROGRAM SELECTS THE DESIRED OPERATION ON 
* : THE SYSTEM BY USING JSING MENU DRIVEN CHOICE 
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ZAK AE eK X< eK EE eC DE DE RC MM RC CAC SC SC RC K KIKE 3 TK A K 1 k KK kk ik 


SET ESCAPE OFE 
SELECT PRIMARY 

SET COLOR TO 30,10 
SET FORMAT TO SCREEN 
SET CONSOLE ON 

SET PRINT OFP 


x Create a continue loop 


DO WHILE t 
CLEAR 
ERASE 
0 1,15 SAY Im kas! ATRPLANE' PART SYSTEM an 
0 3,1 SAY “MAIN MENU“ 
d 3,60 SAY DATE() 
Dei, l, SAY “OPTIONS. * 
3 9 1 SAY s* Ů EXIT TO OPERATING SYsot se 
Dol, TISAY * 1 ADDITION OPERATIONS! 
A 13, U SAY ' 2 DELETION OPERATIONS' 
4 159 9 AY 3 MODIFICATION OPERATIONS 
© 9,45 SAY ' 4 REPORT OPERATIONS" 
A 11,45 SAY ' > QUERIES TE 
Fa Gon SAN 6 EXIT TO DBASES 
® 20,1 SAY  SELECI CHOT EZ 


STORE * TO eno Lee 

WAIT TO choice 

DO (CASE 

CASE choice 
CLEAR 
OUIT 

CASE choice = ‘1! 
DO addmenu 
USE 

CASE Choice z 127 
DO delmenu 
USE 


191! 
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ENDDO WH 


ER choice = 13? 
DO modimenu 
USE 

CASE choice = «ye 
DO repomenu 
USE 

CASE choice = "5" 
DO guemenu 
USE 

CASE choice = ‘5! 
CANCEL 

OTHERWISE 
STORE I TO Z 
DO WHILE z<5 


8 30,5 SAY "INVALID CHOICE.. PLEASE TRY AGAIN" 
@ 31,5 SAY CHR(7) 


STORE zt1 TO z 


EN DDO 
ENDCASE 
ILE t 


Joe ok ek RK Ad dmenu. pig “KA AR AN HA MA RW M A sk 3k ËR kk ki RW MM AR k k k 


* AUTHOR 
* DATE 

AE URPOS 
* 


E 


z KONDYLCPOULOS HARALABOS 
: 10-6-85 
E : THIS PROGRAM SELECTS THE REQUIRED ADDITION 


: OPERATION OF 


PEO ICE 


IE SS SIE BY USING MENU DRIVEN 


X ok o oo ck RO OH ok kk kk ok o ook eoo oo oc oc oc ote oc oco ko OS OS OS DE k k k k kK K kK k kK K ox x 


EET ESCA 
SELECT P 


PE OFF 
BIMARY 


51517 COLCR TO 20,5 


SET TALK 
EET FOR M 


OFF 
AT TO SCREEN 


SET CONSOLE ON 


* Create 


a continue loop 
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DO WHILE t 


CLEAR 

ERASE 

0 1,12 SAY "*** AIRPLANE" PARTS SY TEM Sa 
9 3,1 "541 "ADDMENU' 

d 3,60 SAY DATE() 

da VE SAY € OPTIONS: 

QS cq S Aye O EXIT TO OPERATING sisi 

o 1 PASY S 1 ADDITION OF PARTS" 

DNS MESA! 2 ADDITION OF AIRPL STORES 
à 15,1 SAY ' 3 ADDITION OF WEAPON STORES! 
DIN NES IAE C! 4 ADDITION OF JUNK STORES" 

OQ I9. SAY * 5 ADDITION OF ACESSOR STORES" 
2.954585 AY a 6 ADDITION OF SUPPLIERS' 

d 11,45 SAY ' 7 ADDITION OF INVOICES! 

a 13,7745" SAY * 8 ADDITION OF ORDERS " 

o 15,45 SAY " 9 EXIT TODEA ST: 

a 17,495 SAY “ X EXIT TO MAIN MENU” 

O 20, SAY SBL CI CHO LE Ea : 

STORE ù! t'. TO choice 


WALT TO choice 

DO CASE 

* Execution 

CASE choice 
CLEAR 
QUIT 

CASE choice 
DO adpart 
USE 

CASE choice 


1.31 


121? 
DO adarstr 
USE 

CASE choice 
DO adwstr 


USE 


131! 
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of the appropriate progran 


CASE choice = 
DO adjstr 
USE 

CASE choice = 
DO adacstr 
USE 

CASE choice = 
DO adsuplr 
USE 

CASE choice = 
DO adusage 
USE 

CASE choice = 
DO adorder 
USE 

CASE choice 
CANCEL 

CASE choice 
RETURN 
USE 

OTHERWISE 


‘ye 


"51 


0! 


75! 


"91! 


1X! 


STORE TI TO Z 
DO WHILE z«10 
DEGUESOESIWNEUTNVALID CHOICE. PLEASE TRY AGAIN" 
0 31,5 SAY CHR (7) 

STORE Z+] TO z 


EN DDO 
ENDCASE 


ENDDO WHILE t 


OR; choice = ‘x! 


ZK AK JK * < * KK K AK k k Adpart. prg x RC Ke KK KK KKK KK KK KK KK KKK 


* AUTHOR 
* DATE 


* PURPOS 
x 


z KONDYLOPOULOS HARALABOS 
eo Oo) 
E z THIS PROGRAM ADDS PARTS INTO INVENTORY BY 


I UU TOH TIC UPDATING OF THE EFFECTED STOKE. 


pi 


Mk RE kk êL ZE KK IK KK oro 
SET © ESC AP EMC rE 
SET COLOR TO 30,14 
SET TALK OFF 
STORE t TO tag 
* Create a continue loop 
DO WHILE t 
SELECI PRIMARY 
USE parts INDEX parts 


STORES ' TO mpno 

ERASE 

A 1,15 SAY '"*****kk* 'PART---ADDITION RARES, 
d 3,1 SAY ‘ADDING TO INVENTORY ' 

3 4,60 SAY DATE() 

A 15,1 SAY “ENTER PART NUMBER ' GET mpno 


© 23,1 SAY ENTER A BLANK TO EXIT TO ADDMENU' 


R EAD 
+ Return to tne addmenu for a blank entry 
IF $(mpno, 1,5)= ' : 
RETURN 
ENDIF $(mpno,1,5)= ' ' 


FIND čngno 
* Can not locate the record 
IF #<>0 
SET COLOR TO 112; 180 
© 21,1 SAY “THAT PART IS ALREADY ON FILE ' 
© 22,40 SAY CHR(7) 
SEL TALK OPF 
STORE 1 TO XX 
DC WHILE xXx< 35 
STORE xXx +) TO Xxx 
ENDDO WHILE xx<70 
SET COLOR TO 30,14 
LCOP 


ENDIF #<>0 
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ERASE 


A 1,15 SAY !**#******** | PART--ADDITION Y SKK EET 


d 3,1 SAY "ADDING TO INVENTORY 
0 4,60 SAY DATE () 


STORE  ' ' TO ndesc 
STORE ! ' TO narplt 

STORE I ' TO mnan£nm 
STORE ' ' TO marstrna 
STORE? ' TO njuna 

STORE" ' TO mwstrna 
SIORE `° ft EO macscrtha 


STORE 0 TO mgoh 
STORE 0.00 TO mcost 


ERASE 

Q 6,1 SAY '2ABT NUMBER : *npno 

Q 7,1 SAY 'DESCRIPTION ' GET mdesc 

d 8,1 SAY 'ARPLANE TYPE U GHT Márpit 

® 9,1 SAY 'SUPPLIER, NAME ' GET mmanfnm 

à 10,1 SAY 'ARPL STORE NAME ' GET marstrna 
d 11,1 SAY "JUANK STORE NAME * GET mjuna 

d 12,1 SAY 'WEAP STORE NAME ' GET mwstrna 
Gisele cas "ACGES STORE NAME © GET macstrna 
0 14,1 SAY 'QOH ' GET ngoh 

a 15, 1 SAY COST “(GED cost 

a 23,1 SAY ‘ENTER A BLANK DESCRIPTION TO EXIT' 
k EAD 


* Protect the system from addition into nore 


* than one file 


IF $ (nacstrna,1,3)«»' * . AND. $(mjuna,1,3) <>'* ' 
»AND.$ (nwstrna,1,1)<>'.AND.$(marstrna, 1,3)<> ' ' 


SET COLOR TO 112,140 


SI IT NOT PART OF INVENTORY ' 


SET COLOR TO 3), 14 
LOOP 


ENDIF 
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IF $(mdesc,1,5)-' ' 
LOOP š 
ENDIF 
* add the record 
APPEND ELANK 
REPLACE acstrna WITH macstrna,desc WITH mdesc 
REPLACE manfnm WITH mmanfnm, arstrna WITH marstrna 
REPLACE arplt WITH marpit, wstrna WITH mwstrna 
REPLACE juna WITH mjuna 
REPLACE pno WITH mpno,qoh WITH mgoh,cost WITH mcost 
* Allow the system to add the entry to the appropriate 
* file 
DO CASE 
CASE marstrna <> ? 
SELECT SECONDARY 
USE arstores INDEX arstores 
FIND &p.mpno 


STORES" ' TO naslfno 
ERASE 
d. 6,1 SAY," ARSTENA z! 4 p.aarsturnja 


© 7,1 SAY * PART NUMBER :<* + p.mpno 

aà 8,1 SAY * DESCRIPTION 3“ + "pides 

Qd 9,1 SAY * AKPLANE TYPEs* + p.marplt 

a 10. SAY CoH :* L mo) 

0 li, IZSAY t COST s“ + STRÍPncost 0) 

SEP COVER TO 102.140 

ó 12,1 SAY t ASLFNO 22 :' GET maslfno 

SET (COLOR SEO 302500 

R EAD 

APPEND BLANK 

REPLACE arstrna WITH p.marstrna, pno ITA SAPOS 

REPLACE aslfno WITH maslfno, arpit WITH p.narpit 

REPLACE goh WITH p.mgoh, desc WITH p. mdesc 
REPLACE cost WITH p.mcost 


CLEAR 
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LOOP 

s CRSE WStEna < ' : 
SELECT SECONDARY 
USE wstores INDEX wstores 
FIND &p.mpno 


STORE TI ' TO mwsl£no 

ERASE 

DS | SAY “WESTORES aot DolWst ria 

0 6,1 SAY “PART NUMBER 1.“ + P.nmpno 

d 7,1 SAY “DESCRIPTION zf + p.mdesc 

0 8,1 SAY 'ARPLAN TYPE :' + p.marplt 
DA VOGANILTY ON HAND :* + STA(p.mqoh, 5) 
DO ISA Y “COST SMS TR (paucost,8) 
SET COLCR TO 120,140 

Q 11,1 SAY 'WSLFNO ?? 2* GET mwslfno 
SEP COLCR TO 30, 14 

R EAD 


APPEND BLANK 
REPLACE wstrna WITH p.mwstrna, pno WITH p.mpno 
REPLACE arplt WITH p.marplt, wslfno WITH mwslfno 
REPLACE qoh WITH p.nqoh, desc WITH p.mdesc 
REPLACE cost WITH p.mcost 
CLEAR 
LCOP 
CASE mjuna <> ! : 
SELECT SECONDARY 
USE junstores INDEX junstores 
FIND &p.mpno 


STORE ' * TO mjslfno 
ERASE 
0 5,1 SAY 'JUNSTORES :t + p.mjuna 


0 6,1 SAY “PART NUMBER :*' + p.mpno 

@ /,l SAY DESCRIPTION :* + p.mdesc 

© 8,1 SAY “OUAN ON HAND:“ + STR(p.mgoh,5) 

Dog aoa “COST zna RS ni p-ncost,9) 
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SET COLOR TOME 250 
© 10,1 SAY "JUANK SELF# :' GET mjsifno 
SET COLOR TO 30, 14 
R EAD 
APPEND ELANK 
REPLACE juna WITH p.mjuna, pno WITH p.mpno 
REPLACE jslfno WITH mjslfno, qoh WITH p.mgoh 
REPLACE desc WITH p.mdesc, cost WITH p.mcost 
C LEAR 
LOOP 
CASE macstrna «» ' : 
SELECT SECONDARY 
USE acstores INDEX acstores 
FIND &p.mEno 
STORE ? ' TO macsi fno 
ERASE 
@ 5,1 SAY "ACCESS STORES ;" + mac tema 


6,1 SAY ‘PART NUMBER :' 4 p. mpno 

02751 SAY "DESCRIPTION 2“ * p. mdesc 

@ 8,1 SAY 'ARPL TYPE :* poma pit 

0 9,1 SAY 'QUAN ON HAND :™ + STRIP mgen, 
DTO TESA COST :" + SIRÍP. neos: 


SPI COLOR TO 112,140 
Q 11,1 SAY *ACCES SELF_# 23° GEPeivacs mere 
SED COLOR TTO 30718 
R EAD 
APPEND ELANK 
REPLACE acstrna WITH macstrna, pno WITH p.mpno 
REPLACE acsifno WITH macsiiíno, arplt WITH p.nmar piku 
REPLA CE cost WITH p.mcost, acstrnaqITH plac span 
REPLACE desc WITH p.mdesc, qoh WITH p.qoh 
CLEAR 
L COP 
OTHERWISE 
à 18,10 SAY "THIS IS NOT PART OF THE INVENTIONS 
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C LEAK 
L COP 
ENDCA SE 
ENDDO WHILE t 


šek Rado RK Adsuplr. prg +X RR AAA eror 


x AUTHOR : KONDYLOPOULOS HARAL 


* DATE 1110.—.25— 895 
* PURPOSE : THIS PROGRAM IS USED FOR ADDING NEW SUPPLIERS 
* : INTO INVENTORY 


E EE FI FO GK gk gio k k k lok fe fe ee fe fee kk kokokákk kk 
oe ESCAPE OFF 

SET COLOR TO 30,14 

SET TALK OFF 

SELECT PRIMARY 

USE suppliers INDEX suppliers 


* enter suppliers 


DO WHILE t 
SORE ° ' TO mmanfam 
ERASE 
OIT SAY Uas !SJPPLIERS=--ADDITION © %% x1 
© 3,1 SAY ‘ADDING TO INVENTORY ' 
A 3,60 SAY DATE() 
© 15,1 SAY "ENTER SUPPLIER'S NAME " GET mmanfnn 


3 23, SAY “ENTER A BLANK TO EXIT? 
STORE ! (nmanfnm) TO nnanfnn 
READ 
IF $(mmanfnm,1,5)= ' À 
RETURN 
ENDIF 
FIND Smmanfnm 
IF #L»0O 
eee J SAY THIS SUPPLIER'S NAME ALREADY " 
Ome 2 SEV VON THE FILE H 


QZ OU SAY EHR (7) 
57 


SET TALK OFF 

STORE 15 O Kx 

DG WHILE xx<20 

STOREPxxX +] TO xx 

ENDDO WHILE 

LCOP 
ENDIF #00 
ERASE 
Q 1,1 SAY '*** 'SUPPLIER'S--ADDITION "+%%#! 
d 2,1 SAY 'ADDING TO INVENTORY ' 
© 2,60 SAY DATE () 


STORE S ' TO mnanfadr 
STORE “ S TO mzip co 

OJORE P t TO mcountry 

STORE ” TO Ma pe 

STORET! ' TO mdel:tine 

STORE * t TO mproduct 
ERASE 


d 4,1 SAY "SUPPLIER'S NAME "+ mmaninm 
0 5,1 SAY "SUPPLIER'S ADDRE " GET mmanfadr 


0.6.1 SAY 'ZIP:GODE ' GET mzip:co 
DEAN (SAY "COUNTRY ' GET mcountry 
à 8,1 SAY 'ARPL TYPE SUPPORT? GET marplt 
209-1 SAY C'DELTVERY TIME ' GET mdel:time 
d 10, 1 SAY "PRODUCT ' GET nproduct 


@ 23,1 SAY "ENTER A BLANK DESCRIPTION TOREK 
READ 
1 bímmaninsn. 1, 1)- ae 

RE TU EN 
ENDIF 
* add the record 
APPEND ELANK 
REPLACE manfnm WITH mmantnm, manfadr WITH mmanfadr 
REPLACE zZip:co WITH mzip:co, country WITH ucoU EN 
REPLACE del:time WITH mdel:time, arplt WITH marplt 
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REPLACE product WITH mproduct 
ENDDO WHILE t 


ddd hk dh kk kk AdOrder **KKKRKKKK KK KK KKK KKK KEKE KKK 


* AUTHOR z KONDYLOPCULOS HARALABOS 

* DATE 220110515 — 85 

* PURPOSE : THIS PROGRAM ADDS NEW ORDERS INTO ORDER 
* SERT DE 


ake kk ok te odo ole Mo lok R KOK oic o ole tc ole oco ofc ote oc oic ok dk ok KK KK kok kk R 


SEE ESCAPE OFF 
BEI COLCR TO 30,14 
EET TALK OFF 
SELECT PRIMARY 
USE orders INDEX orders 
* enter orders 
DOCWHILE t 
STORE * ' TO mordno 
ERASE 
Q 1,1 SAY !*xx*xckxkx:x* 'CBDER--ADDITION 'xexderdeekeke x 
D 3,1 SAY ‘ADDING TO INVENTORY ' 
d 3,60 SAY DATE() 
d 15, 1 SAY "ENTER ORDER NUMBER " GET nordno 
DZS. INSAY “ENTER A BLANK TO EXIT' 
R EAD 
IF $(mordno, 1,5) = * ' 
RETURN 
ENDIF 
FIND £mcrdno 
IF #<>0 
A 22,1 SAY ‘THIS ORDER NUMBER ALREADY EXIST ' 
Ogee, 5 SAY ! ON FILE ' 
0 22,60 SAY CHk(7) 
SET TALK OFF 
SED RESTO xx 
DO WHILE xx«20 
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STORE XX+1 TOR 

ENDDO WHILE 

LCOP 
ENDIF #00 
ERASE 
d 1,1 SAY t*ř*kkéškkák 10RDER-—ADDITION !'*** s +*** ** 
© 2,1 SAY ‘ADDING TO INVENTORY * 
dD 2,60 SAY DATE () 


STORE $ ' TO mpno 

STORE * ' TO mdesc 
STORE ° + TO mdate 
STORE ? * TO mcrdna 
STORE * t TO mmanf nm 


STORE O TO mqnt 
STORE 0.00 TO mcost 


ERASE 

d 4,1 SAY "ORDER NUMBER " 4 mordno 

© 5,1 SAY "DATE " GET ndate 

© 6,1 SAY 'PNO * GET mpno 

à 7,1 SAY 'DESCRIPTION t GET mdesc 

à 8,1 SAY “NAME OF THE ORDERER “ GET mordna 

ar 9.1. SAY —CSUPPLEIER ' GET mmantnm 
a 10,1 SAY "QUANTITY ORDERED t GET mant 
DEV, | SA PCOS ' GET mcost 

0 23,1 SAY "ENTER A BLANK DESCRIPTION TO EE 


R EAD 
TE $P((mmantam, 1, lje" «“ 

RETURN 
ENDIF 
* add the record 
APPEND BLANK 
REPLACE manínm WITH mmanfnn, ordno WITH mordno 
REPLACE pno WITH mpno, desc WITH mdesc, qnt WITH mgnt 
REPLACE cost WITH ncost, ordna WITH mordna, 
REPLACE date WITH mdate 
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ENDDO WHILE t 


že šoke kok k dokokok ik k ek Adusage. prlg FAR AAA ke he Ah kk RA EC CE SE k bk k ke ke le ke die 


* AUTHOR : KONDYLCPOUOS HARALABOS 


* DATE . 1109-85 
* PURPOSE : THIS PROGRAM ADDS INVOICES INTO USAGE FILE 
4 : BY USING THE PART NUMBER 


He He he He He A DC KE ee eee ee he ee ee LC HC SC fe fe * ee ee A A A A A A KK 


EST COLCR TO 30,14 
SET TALK OFF 
SET ESCAPE OFF 
SELECT FRIMARY 
USE usage INDEX usage 
* enter orders 
DO WHILE t 
STORE « '* TO mpno 
ERASE 
O 1,1 SAY "****v**4* 'INVOLICE-—-ADDITION '*£$**t&x*£xxxn/ 
© 3,1 SAY ‘ADDING TO INVENTORY ' 
@ 3,60 SAY DATE() 
Q 15, 1 SAY "ENTER PART NUMBER * GET apno 
00 24. | SAT "ENTER A BLANK TO EXIT" 
READ 
IF $(npno,1,1)-» ' ' 
RETURN 
ENDIF 
FIND &mpno 
IF # <> 0 
DL 211537 "101715 PART HAVE BEEN REGISTER TO ' 
PE) SAY "THE FILE" 
A 22,60 SAY CHR(7) 
SET TALK OFF 
SIORES] TONUX x 
DO WHILE xx<20 
STORE xx+1 TO xx 
61 


ENDDO WHILE 
LCOP 
ENDIF #<>0 
ERASE 
d 1,1 SAY "*řk*íkk TIN VOICE--ADDITION '!******+*** 
à 2,1 SAY "ADDING TO INVENTORY ' 
0 2,60 SAY DATE () 


STORE * ' TO minvno 

STORE ' ' TO mdesc 
STOKE ' ' TO mdate 
STORE! ' TO munane 
STORE * ' TO muaddr 


STORE O TO mant 
STORE 0.00 TO mcost 


ERASE 
à 4,1 SAY "PART NUMBER " + mono 
DNS ANS AY SUDATE " GET mdate 
0 6,1 SAY ‘INVOICE NUM BER ' GET minvno 
a 7,1 SAY “DESCRIPTION ' GET mdesc 
0 8,1 SAY ‘NAME OF THE ORDERER * GET munane 
@ 9,1 SAY SUPPLIER ! GET muaddr 
0 10,1 SAY ‘QUANTITY RECEIVED ' GET mgnt 
Qo 114, 11 SAY COST ' GET mcost 
a 23, 1 SAY “ENTER A BLANK DESCRIPTION TO EIE 
READ 
IF $(minvno,1,1)="' '! 

RETURN 
ENDIF 


* add the record 
APPEND BLANK 
REPLACE invno wiTH minvno, uname WITH munane 
REPLACE pno WITH mpno, desc WITH ndesc, qnt WITH nqnt 
REPLACE cost WITH mcost, uaddr WITH muadar 
REPLACE date WITH mdate 
ENDDO WHILE t 


e dete EKER RRR Alarstr.prg * KKK EER KK HEE KEKE dokok ke kk 


* AUTHOR z KONDYLOPOULOS  HARALABOS 
* DATE : 10-18-85 
* PURPOSE : THIS PROGRAM ADDS NEW AIRPLANE STORES INTO 


* SALE SYSTEM 

afe kk kk k oleo ol o oe oie de dd dd kk o kk k kk kk ko k kk k kk 
BET ESCAPE OFF 

SET COLCR TO 30,14 

SELECT PRIMARY 

USE arstores INDEX arstores 

STORE t TO flag 

* enter airplane's stores 

DO WHILE flag 


STORE © ' TO marstrna 

ERASE 

o 1.1 SAY, RE *ARPL SIORES---ADDITION ' 64441 

0 2,1 SAY  'ADDING TO INVENTORY ' 

Q 3,60 SAY DATE () 

® 15,1 SAY "ENTER ARPL STORE NAME ' GET marstrna 


d 23,1 SAY 'BNTER A BLANK TO EXIT' 
R EAD 
IF $(marstrna,1,5)-» ' ' 
RETURN 
ENDIF $ (mpno,1,5)= * ' 
FIND &marstrna 
IF #<>0 
@ 22,1 SAY *THIS ARPL STORE ALREADY EXIST ON * 
U 24253 SAT © FILE % 
d 22,60 SAY CHR(7) 
SBE TALK OFF 
STORE I TO XX 
PG NHILE xx< 20 
STUR E, Rr TO XX 
ENDDO WHILE 
63 


LOOP 
ENDIF #<>0 
ERASE 
© 1,1 SAY '****k***+* "ARPL STORES-—ADDITION EES EEN 
© 2,1 SAY "ADDING TO INVENTORY "' 
Q 2,00 SAY DATE () 


STORET: ' TO mpno 

STORES ' TO mdesc 
STORE © ' TO maslfno 

STORES © v TO marpit 


STORE 0 TO ngoh 
STORE 0.00 TO mcost 
© 4,1 SAY *ARPL STORE NAME '+ marstrna 


d 5,1 SAY "PART NUMBER ' GET mpno 
dD 6,1 SAY "DESCRIPTION ' GET mdesc 
© 7,1 SAY "ARPL SELE NUMBER * GET maS cno 
d 8,1 SAY 'ARPLANE TYPE v GET marplt 
A 9,1 SAY "ONT ON HAND ' GET mgoh 
©. 10. 1 ShY: COS t GET mcost 
dD 23,1 SAY "ENTER A BLANK DESCRIPTION 170 009“ 
R EAD 
LE Sin pnoe, 1, 1)" 

RETURN 
ENDIF 


* add the record 
AFPEND ELANK | 
REPLACE pno WITH mpno,desc WITH mdes- 
REPLACE arstrna WITH narstrna, arplt 0 nav 6 
REPLACE asltno WITH maslfno,goh WITH mgoh 
REPLACE Cost WITH mcost 

ENDDO WHILE t 


kakak k kk k ok kak k kk kkk A dW SEE. pr g KK RK KKK RK RAKE REE K EEK 
* AUTHOR s KONDYLOPCULOS HARALABOS 


DAT E 3 1001] 35.35 
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"PURPOSE : THIS PROGRAM ADDS NEW WEAPON STORES INTO 


x 


: INVENTORY 


£ sÉ AÉ c ok Ne Ye ke tok kok le ll le le e al ol le e ad de le ll e ll e tk ae oe ok a oe ae sk oe oe že 


SET ESCAPE OFF 

SET COLCR TO 30,14 
SELECT PRIMARY 

EET. TALK OFF 


USE 


wstores INDEX wstoces 


STORE t TO flag 
* enter weapon's stores 
DO WHILE flag 


SHORE * * TO mwStrna 
ERASE 
DEINEN YES EC KHMENEENPONWNSIORES---ADDITION Tat Z S * 9 
d 2,1 SAY ‘ADDING TO INVENTORY ' 
9 3,60 SAY DATE() 
d 15,1 SAY '*ENTER WEAPON STORE NAME ' GET mwstrra 
dj | SAX "ENTER A BLANK TO EXIT' 
READ 
IF $(mwstrna,1,5)- * ' 
RETURN 
ENDIF $(mwstrna,1,5)= * : 
FIND čmwstrna 
IF #<>0 
22,1 SAY 'THIS WEAPON STORE ALREADY EXIST * 
0E2773 SAY © ON FILE ' 
Q 22,60 SAY CHR(7) 
SET TALK OFF 
STORES TO xx 
DC WHILE xx<20 
STORE xx+1 TO xx 
ENDDO WHILE 
LCOP 
ENDIF #00 
ERASE 
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D 1,1 SAY ***** "WEAPON STORES--ADDITION *****x! 
© 2,1 SAY ‘ADDING TO INVENTORY " 
0 2,60 SAY DATE () 


STORE ' TO npno 

STORE 8 ' TO mdesc 
STORES * TO nwslfno 

STORE ! t TO marpit 


STORE O TO mqoh 
STORE 0.00 TO mcost 


ERASE 

® 4,1 SAY 'WEAP STORE NAME "+ mwstrna 

A 5,1 SAY "PART NUMBER * GET mpno 

d 6,1 SAY "DESCRIPTION ' GET mdesc 

0 7,1 SAY 'WEAP SELF NUMBER " GET mwslino 
0 8,1 SAY 'ARPLANE TYPE ' GET marplt 
à 9,1 SAY 'QNT ON HAND ' GET mqoh 

àd 10,1 SAY ‘COST ' GET mcost 


© 23,1 SAY ‘ENTER A BLANK DESCRIPTION TO EXIT! 
READ 
IF $(apno, 1, =! 
RETURN 
ENDIF 
* add the record 
APPEND BLANK 
REPLACE pno WITH opno,desc WITH mdesc 
REPLACE wstrna WITH mwstrna, arplt WITH marplt 
KEPLACE wsifno WITH mwslfno,goh WITH mgoh 
REPLACE cost WITH mcost 


ENDDO WHILE t 


Ze Zoe se skoke se skok lalola AU GSC. PL (SR RR o kk kk k K 


* AUTHOR z KONDYLOPOULOS HARALABOS 

* DATE sn 10— 19-05 

ae PURPOSE : THIS PROGRAM ADDS NEW JUNK STORES INTO THE 
* S SIE] 
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Ze koke ke RR a dl e e de e A de a de doue ie” A AR ak AR A k k k kk kok eK X 


S ESCAPE OFF 
SET COLOR TO 30,14 
SELECI PRIMARY 
SET TALK OFF 
USE junstores INDEX junstores 
EM MORE t TO flag 
* enter junk's stores 
* Create a continue loop 
DO WHILE flag 
STORE ' ' TO mjuna 
ERASE 
EE JUNKVSTORES———- ADDITION EEA H 
0 2,1 SAY ‘ADDING TO INVENTORY ' 
0 3,60 SAY DATE() 
0 15,1 SAY 'ENTER JUNK STORE NAME * SET mjuna 
© 23, | SAY "ENTER A BLANK TO EXIT" 
R BAD 
IF $(mjuna,1,1)= * * 
RETURN 
ENDIF $(mjuna,1,1)= ' * 
FIND &mjuna 
IF #<>0 
ASA K THIS JUNK STORE ALREADY EXIST ON ' 
TD Oa QUE EPDRO! 
à 22,60 SAY CHR(7) 
SET TALK OFF 
STORE 1 TO xx 
DO WHILE xx«20 
STORE xx+1 TO xx 
ENDDO WHILE 
LCOP 
ENDIF #<>0 
ERASE 
CONE JUNE O LORES-—-ADDITION "***xx! 
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© 2,1 SAY ‘ADDING TO INVENTORY " 
D 2,60 SAY DATE () 


STORE! * TO mpno 

STORE! ' TO ndesc 
STORE MU ' TO mnjslfno 

STORE! ' TO narplt 


STORE 0 TO mqoh 
STORE 0.00 TO mcost 


ERASE 
4,1 SAY 'JUNK STORE NAME '+ mjuna 
0 5,1 SAY "PART NUMBER ' GET mpno 
0 6,1 SAY "DESCRIPTION ' GET ndes- 
0 7,1 SAY 'JUNK SELF NUMBER ' GET mjslfno 
dD 8,1 SAY 'QNT ON HAND ' GET mqoh 
O 3.1 SAY “COST ' GET ncost 


dò 23,1 SAY "ENTER A BLANK DESCRIPTION TO EXIT! 
R EAD 
IE S(mpno, 1,115" * 
RETURN 
ENDIF 
* add the record 
APPEND BLANK 
REPLACE pno WITH mpno,desc WITH mdesc,juna WITH mjuna 
REPLACE jslfno WITH mjslfno,goh WITH mqoh 
REPEACE Cost WITH mcost 


ENDDO WHILE t 


A RR RR RRA AAC St. pg. FARRO A A e A RA kok ke 


A 


x 


* 


x 


AUTH 
DATE 
PURP 


OR : KONDYLOPOULOS HARALABOS 
z 10-2-85 
OSE z THIS PROGRAM ADDS NEW ACESSORIES STORES INTO 


DS S 


* 3k * diete ck o oe ok cc ci oe odo adc of cte ce cde oie cde kk kk K ie ie A EE ke K f K kek K K K KOK KOK AR 


SET ESCAPE OFF 
SET COLOR TO 30, 14 
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SELECT PRIMARY 

USE acstores INDEX acstores 
STORE t TO flag 

* enter accessories stores 
DO WHILE flag 


STORE `° ' TO nacstrna 

ERASE 

U S A O ACE SSORTE SOS TIORES ——- ADDI TILON ***A%+%! 
© 2,1 SAY ‘ADDING TO INVENTORY * 

0 3,60 SAY DATE () 

© 15,1 SAY "ENTER ACESSSOR STOKE NAME ' GET macstrna 
@ 23,1 SAY ‘ENTER A BLANK TO EXIT! 

R EAD 

IF $(macstrna,1,1)< ' " 


RETURN 
ENDIF $(macstrna,1,1)- ' ' 
FIND &macstrna 
IF #<>0 
ü 22,1 SAY tTHIS ACESSOR STORE ALREADY EXIST * 
T2 213 ISAS IRON FILE ' 
0 22,60 SAY CHR(7) 
SET TALK OFF 
STORE 1 TO xx 
DC WHILE xx<20 
STORE xx+1 TO xx 
ENDDO WHILE 
LCOP 
ENDIF #<>0 
ERASE 
D 1,1 SAY '**** 1ACESSORIES STORES--ADDITION *******! 
© 2,1 SAY *ADDING TO INVENTORY * 
A 2,69 SAY DATE () 


S LORE ' ' TO mpno 
STORE ? ' TO ndesc 
STORE % ' TO macslfno 
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STORE Z! “TO Da pie 

STORE O TO ngoh 

STORE 0.00 TO mcost 

0 4,1 SAY 'ACESS STORE NAME  "%t macstrna 


o 5,1 SAY 'PART NUMBER ' GET mpno 

@ 6,1 SAY DESCRIPTION ' GET mdesc 

0 7,1 SAY 'ACESS SELF NUMBER" GET macslfno 
3 8,1 SAY 'ARPLANE TYPE ' GET marplt 

d 9,1 SAY 'QNT ON HAND ' GET mgoh 

O 10, 1 SAY VCOST ' GET mcost 


A 23,1 SAY ENTER A BLANK DESCRIPTION TO EX 
READ 
IF $(mpno,1,1)=' * 
RETURN 
ENDIF 
* add the record 
APPEND BLANK 
REPLACE pno WITH mpno,desc WITH mdes- 
REPLACE acstrna WITH macstrna, arplt WITH marplt 
REPLACE acslfno WITH macslfno, qon WITH mgon 
REPLACE cost WITH mcost 


ENDDO WHILE t 


KK ARK KA KEKE KARE Delmenu.prg *3Ó 0k fox eto HR He lk ak de e Re e ve A ak kk k + 


* AUTHOR : KONDYLOPCULOS HARALABOS 
* DATE z 10-11-85 
* PURPOSE z THIS PROGRAM SELECTS THE REOCJIRED DELEC TOR 


* 


OPERATION, BY USING MENU DRIVEN CHOICE 


* ** he ok eA eK oe ok SC Sr k kk kk kk kk k kk k k kk ká k ká kk kk kk SC SE IE IR k kk k kk kk K 


SET “ESCAPE FE 
SELECT PRIMARY 


SET 
SET 
S ET 
SET 


COLOR TO ZO, 5 
TALK OBE 

FORMAT TO SCREEN 
CONSOLE ON 
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DO WHILE t 
CLEAR 
ERASE 
@1,15 SAY "**** "ATRPLANE' PARTS SYSTEM tikit 
d 3,1 SAY 'DELMENU' 


3,60 SAY DATE() 

7,1 SAY ‘ OPTIONS:' 

9,1 SAY ' 0 EXIT TO OPERATING SYSTEM! 
11,1 SAY ' 1 DELETION OF PARTS" 

13,1 SAY ' 2 DELETION OF AIRPL STORES' 
15,1 SAY ' 3 DELETION OF WEAPON S TORES' 
17,1 SAY ' 4 DELETION OF SUPPLIERS' 
9,45 SAY ' 5 DELETION OF JUNK STORES' 


11,45 SAY ' o DELETION OF ACERS STORES" 

13,45 SAY ! 7 DELETION OF OKDERS* 

15,45 SAY " S DELE LEON OF INVOICES? 

I HS. SAY ' 9 EXIT TO MAIN MENU! 

19,30 SAY ' X EXIT TO DATABASE! 

ZINI SAYO! — SELECT8SHOICE w 

STORE VO TO choice 

WAIT TO choice 

DO CASE 

CASE choice = "9" 
CLEAR 
OU 

CASE choice 
DO depart 
USE 

CASE choice = ‘2! 


D © 9 Q © © Y Bi © © © © €) €) 


H 

an 
ank 

m 


DO dearstr 
USE 

CASE choice = '3' 
DO dewstr 
USE 

CASE choice = "4° 


el 


DO desuplr 
USE 

CASE choice = 
DO dejstr 
USE 

CASE choice = 
DO deacstr 
USE 

CASE choice = 
CLEAR 
DO deorder 
USE 

CASE choice = 
DO deusage 
USE 

CASE choice 
RETURN 
USE 

CASE choice 
CAM EL 

OTHERWISE 
SICRS Oe PO 


«ge 


2x“ SOR] Choice = ava 


Z 


DO WHILE z<5 


3) 305 SAL 


"INVALID CHOICE. . PLEASE Th AG A E 


à 31,5 SAY CHR (7) 
STORE z*1 TO z 


ENDDO 
ENDCASE 


ENDDO WHILE t 


JE AK DK A x K 


Depart. prg >**>>* k dede de x kok kok skok hh skoka sk sk skok k 


* AUTHOR Z KONDYLOPOULOS HARALABOS 
* DATE : 10-15-85 
* PURPOSE : THIS PROGRAM DELETES PARTS FROM THE INVENTORY 


+ 


: SYSTEM MASTER FILE WITH AUTOMAT VU? DURI 
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* O THE EFFECTED FILE 
ake Me IO Roto kok e Me ke Be Me kak kak kok kok ak odje keke Ne Me Me ke Me kok ok ke Me Me kc ak ook ke 
DET COLOR TO 30, 22 
DO WHILE t 
SELECI PRIMARY 
USE parts INDEX parts 
ERASE 
SO nae t TO mpno 
D 2,1 SAY 'DELETING FROM PART FILE ' 
à 2,60 SAY DATE() 
o 4,20 SAY ' ENTER PART NUMBER * GET mpno 
@ Zager SAY * ENTER A BLANK TO EXIT TO DELMENU * 
READ 
DES mpno,1,1) s ' ' 
RETURN 
ENDIF 
FIND Empno 
IF # = 0 
ERASE 
SET COLOR TO 112, 140 
© 22,1 SAY ' THAT PART IS NOT ON THE FILE !!! * 
d 22,3 SAY ' PLEASE TRY AGAIN ' 
SE Tal O TO 30, TI 
o aa ISAY CHR (7) 
SET TALK OFF 
51601 1 TO z 
PO WHILE 2«39 
STORE z+ 1 TO” 
ENIDO WHILE 


LOCP 
ENDIF # = 0 
STORE! ' TO mdesc 
STORE ! ' TO marplt 
STORE t TO mmanfnm 
STIRE T ' TO marstrna 


o 


STORE 


DO CASE 


: ? TO mwstrna 


STORES ' TO macstr m 

STORE ' TO mjuna 

STORE 0 TO mqoh 

STORE 0.00 TO mcCost 

STORE desc TO mdesc 

STORE arpit TO Na Ee pit 

STORE manfnm TO mmanfnn 

STORE arstrma TO mar Stora 

STORE wstrna TO mwstrna 

STORE juna TO njuna 

STORE acstena TO macstrma 

STORE goh TO mgoh 

STORE cost TO mcost 

ERASE 

O 2; SAY "DATA OP THE RECORD 

à 2,60 SAY DATE() 

D 6,1 SAY 'PART NUMBER s" "Hope 

Q 4, V SAY "DESCRIPTION sa t ndesz 

© 8,1 SAY 'AIRPLANE TYPE :* s tmappilL 

@ 9,1 SAY " SUPPLIERS NAME S +mnanínn 

© 10,1 SAY 'ARPL STORE NAME :'  tmarstrna 
dD 11,1 SAY "JUNK STORE NAME :' +mjuna 

d 12, SAY 'WEAPON STO NAME :' *mwstrna 
@ 134 0) SAY "ACCES STO NAME >z" +macstrna 
d 14,1 SAY 'COH ¿1 +S TR (gone) 
OTA SPO SAS "COST :t +STR(mcCost o) 
© 18,20 SAY "PLEASE BE PATIENT SEY 

a 19,20 SAY "THIS WILL TAKE 11 50.9 

DELETE 

PACK 

CASE marstrna <> " : 


SELECT SECONDARY 


USE 


arstores INDEX arstores 
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FIND &mpno 
DELETE 
PACK 

CLEAR 

LOOE 


CASE mwstrna <> ! ' 


SELECT SECONDARY 

USE wstores INDEX wstores 
FIND &mpno 

DELETE 

PACK 

CLEAR 

LOOF 


CASE mjuna <> ' ' 


SELECT SECONDARY 

USE junstores INDEX junstores 
FIND &mpno 

DELETE 

PACK 

CLEAR 

LOOE 


CASE macstrna <> ! : 


SELECT SECONDARY 

USE acstores INDEX acstores 
FIND &mpno 

DELETE 

PACK 

CLEAR 


ENDDO WHILE t 


A oia k k k kkk DESU PIL. PLG FAR AH AR ke kk kk ke ke ke kk ke de Re Ak ke ke ke e 


* AUTHOR 
* DATE 
feu RPOSE 


z KONDYLOPOULOS HARALABOS 
: 10-11-85 
5 THIS PROGRAM DELETES SUPPLIERS OF THE SYSTEM 


ZE ŽAR OH Hí TE K JK + * 3k ki 3 K Kk Kk 1 Í T ok kok l 1 kk ke ROC OC GGG X 


[o 


SET COLOR TO 306822 
SET TALK OFF 
SET ESCAPE CFE 
DO WHILE t 
SELECT PRIMARY 
USE suppliers INDEX suppliers 
ERASE 
STORES ' TC nmanífnm 
© 2,1 SAY *DELETING FROM SUPPLIERS FILE ! 
à 2,60 SAY DATE() 
© 4,20 SAY * ENTER SUPPLIER NAME * GET mmanfna 
» 23,1 SAY * ENTER A BLANK TO EXIT TO DEDMENUM 
READ 
IF $(umanfnm,1,1) =" * 
RETOURN 
ENDIF 
FIND Ennan Lnn 
IF # = O 
ERASE 
SEI COLOR TO 412, 140 
3 22,1 SAY * THAT PART IS NOT ON THE FILE 118 
D 22,2 SAY * PLEASE PRY AGAIN a 
SEL COLOR TO 30519 
3.123, T1 SAY CH) 
SET TALK (OFF 
STORE Py TOT 
DO WHILE z«39 
STORE Z+] TO Z 
ENCDO WHILE 


LOGP 
ENDIF # = Q 
STORET" ' TO mmanfadr 
STORE A 1 79 mzip: co 
STORET: v TO sncountry 
STORE! v 19) Mar patt 
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STORE.” ' TO mdel:tine 
STORE! ' TO mprodđuct 
STORE manfadr TO mmanfadr 

STORE manfnm TO umanfnm 

STORE zip:co TO mzip:co 

STORE country TO mcountry 

STORE product TO mproduct 

STORE del:time TO ndel:tine 
STORE arplt TO marplt 

ERASE 

DZ SAY O DALA GF THE RECORD " 
0 2,60 SAY DATE() 

A 6,1 SAY ‘SUPPLIER NAME U 
SET CCLER TO 20,10 

@ 6,20 SAY + ! (mmanfnn) 

SET CCLCR TO 30,14 


d 7,1 SAY *SUPPLIER ADDRESS :'  tmmanfadr 

® 8,1 SAY ‘ZIP CODE ZAS CO 

@ 9,1 SAY "COUNTRY :' +mcountry 

® 10,1 SAY 'ARPLANE TYPE + (emarsplt 

® 11,1 SAY "DELIVERY TIME :' +adel: tine 
aà 12,1 SAY "PRODUCT a. rna product 
aie 20 SAY "PLEASE BE PATIENT....!' 

DELETE 

PACK 


ENDDO WHILE 


3e CK ae sk skok skokok Deorder. prg Fk kk k kk k kk k kk k k 


x AUTHOR z KONDYLOPOULOS  HARALABOS 
* DATE 0514-05 
Bee OSE : TAIS PROGRAM DELETE ORDERS FROM THE SYSTEM 


FOC IC SII III e Me e Ae A Me Me Me Me Ae Me Me Ne ka kk ak kk Ne Me e Ne ade o kok ke ke ke ke 
MEN COLCR TO 30,22 
oor TALK OFF 
SEI ESCAPE OFF 
no 


DONS LEVE 
SELECT PRIMARY 
USE orders INDEX orders 
ERASE 
STORE ! ' TO mordno 
da 2,1 SAY "DELETING FROM ORDER FIL EA 
© 2,60 SAY DATE (0) 
0 4,20 SAY * ENTER ORDER NUMBER ' GET mordno 
0 23,1 SAY * ENTER A BLANK TO EXIT TO DELB Bas 
READ 
IF SB (MOBARO:, 1,01) M 
RE TURN 
ENDIF 
FIND &mordno 
IF # = 0 
ERASE 
SET COLOR TO 112,140 
D 22,1 SAY ' THAT PART IS NOT ON 15E 0108 
@ 22,3 SAY ' PLEASE TRY AGAIN | 
S ETSCOLOR TO 30,08 
V. 23, 1 SAY CHR (7) 
SET TALK OFF 
STORES Ter =Z 
DO WHILE z<30 
OT O 
ENDDO WHILE 


LOOP 
ENDIF # = 0 
STORE P ' TO mdesc 
STORE |! ' TO mdate 
STONE ' TO mmanfna 
TORB! ' TO mordna 
STORE h ' TO mpno 


STORE O TO mqnt 
STORE 0.00 TO mcost 
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STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
ERASE 
à 2,1 


desc TO mdesc 
date TO mdate 
manfnm TO mmanfnm 
ordna TO mordna 
pno TO mpno 

ordno TO mordno 
gnt TO mgnt 

cost TO mcost 


SAY “PATA OF THE RECORD ' 


à 2,60 SAY DATE() 


Q9 6,1 


SAY 'ORDER NUMBER 


SET COLOR 10 20, 10 
@ 6,20 SAY + !(mordno) 
SET COLOR TO 30,14 


deu 
8, 1 
7 | 
10,1 
11,1 
127 
ll 


© © © © © © © €) 


PACK 
ENDDO WHILE 


SAY "DESCRIPTION zf +mdesc 
SAY 'DATE :' +mdate 

SAY "SUPPLIERS NAME :' +nmanifnm 

SAY "ORDER NAME :' +mordna 

SAY "PART NUMBER :' +mpno 

SAY "QUANTITY SASA (meat, 5) 
SAY COSI :'* +#STR (uacost,8) 


I "PLEASE BE PATIENT... ' 
DELETE 


ZE AK AK K CIE OX XO + zk ch A Deusag2. prg ME AK c K K + 3 > k kkk kkk k k kk kk KKK 


* AUTHOR : KCNDYLOPOULOS HARALABOS 
* DATE SU S B85 
RLFO SE > THIS PROGRAM DELETES INVOICES FROM THE SYSTEM 


ak o oc oc oc oe Ok 3k e o A kk kk k kok oje A A de e k kk kak KK K XK k k k k kk K A A k 


SS" COLOR TO 30,22 


SISI TALK OFF 


SET ESCAPE OFF 
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DO WHILE t 
SELECT PRIMARY 
USE usage INDEX usage 
ERASE 
STORE ! T3 minvno 
0 2,1 SAY 'DELETING FROM USAGE FILE * 
Q 2,60 SAY DATE() 
d 4,20 SAY ' ENTER INVOICE NUMBER ' GET minvno 
0 23,1 SAY * ENTER A BLANK TO EXIT TO DEEMENUM! 
READ 
EROS (MENO, 141) = 1 9 
RETURN 
ENDIF 
FIND &minvno 
IF # = 0 
ERASE 
SEI COLOR TO 112, 140 
D 22,1 SAY ' THAT PART IS NOT ON DJ SIE O 
@ 22,3 SAY * PLEASE TRY AGAIN ' 
SET COLOR TO 30,14 
à 23,1 SAY CHR (7) 
SEL BLACK OEF 
SICRE -I TO 2 
DO WHILE z<30 
STORE 2+1 TO z 
ENDDO WHILE 


LOOP 
ENDIF # = Q 
STORE 3 ' TO mdesc 
STORE “ ' TO mdate 
STORES * TO muname 
STORE! ' TO muaddr 
STORE 8 ' TO mpno 


STORE O TO mgart 
STORE 0.00 TO mcost 
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STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
ERASE 


desc TO mdesc 
date TO mdate 


uname TO muname 


invno TO minvno 


pno TO mpno 
uaddr TO muaddr 
got TO mgnt 


cost 


TO mcost 


O 2, | SMY "DATA OF THE RECORD * 
© 2,60 SAY DATE() 
"INVOICE NUMBER 
SET COLOR TO 20, 10 

@ 6,20 SAY 4 ! (minvn 
SET CCLOR 


à 6,1 


7,1 
8,1 
221 
10, 
11, 
12, 
13; 


Y 8 © © © V © 


SAY 


SAY 
SAY 
SAY 
1 SAY 
1 SAY 
1 SAY 
1 SAY 


TO 30,14 
PDESCRIPIT 
“DATE 
"USER NAME 


o) 


ON z: 


"USER ADDRESS Su 


"PART NUM 
"ONT 
CC 1 


BER S 


+mdesc 
+mdate 
tmunane 
tmuadir 
tm pno 
+STR (agqnt, 5) 
*STR (ncost,8) 


DON ZON SA YA PLEASE BE PATIENT....' 


DELET 
PACK 


ENDDO WHILE 


E 


AK RK aio oo Dear st pl g FRR RK RK RR RRR KR Ra SE SE SR 


* 
* 
* 
* 


AUTHOR g 
DATE s 
PURPOSE  : 


KO NDY 
10525 


LOPOULOS 


-85 


HARALABOS 


THIS PROGRAM DELETES ARPLANE STORES FROM 
THE SYSTEM 
He ae RK kK KOR kkk ck ok ik kkk ko ORO a ok 
fre COLOR TO 30, 22 
SET ESCAPE OFF 
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SET TALK OFF 


ERASE 
DO WHILE C 
ERASE 
Stone a Vv TO Gar Stena 


@ 2,1 SAY “DELETING FROH AIJRPLANE STORES mne 
d 2,60 SAY DATE() 
à 4,20 SAY ' ENTER AIRPLSTORE NAME * GET marstrna 
d 23,1 SAY " ENTER A BLANK TO EXIT TO DELIBES 
READ 
If $(marstrna,1,1) = ' ' 
RETURN 

END íF 
SELECT PRIMARY 
USE arstores INDEX arstores 
FIND čmarstrna 
IF # = 0 

SET COLOR TO 112, 140 

da 22,1 SAY ' THAT PART IS NOT ON THE FILE" -= 

D ¿2,3 SAY ' PLEASE TRY AGAIN € 

SET COLOR TO 30,14 

@ 23, 1 5AY CHR (7) 

SEIT TALK OPF 

STORE 1 10 Z 

DO WHILE z<30 

STObE Z+] TO Z 
ENDDO WHILE 


L OCP 
ENDIF # = O 
CRASE 
DO WHILE NOT EOF 
IF arstrna = marstrna 


O. 3, 1 SAY 'DBLETIO I O PRE! 
SET COLOR TO 20719 
@ 3,14 SAY + !(marstrna) 
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SET COLOR TO 30,14 


@ 4,1 
STORE 
STORE 
STORE 
STORE 
STORE 
SIORE 
EKASE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
ERASE 
3 2⁄1 
QS 


SAY + sk kkik3ik3kikik ! 


' ' TO mdesc 


TO naslfno 


' ' TO marstrna 


' ' TO mpno 
0 TO ngoh 


0.00 TO mcost 


desc TO ndesc 

SEELEN mnarptt 
aslfno TO maslfno 
arstrna TO marstrna 
pno TJ) mpno 

goh TO mgoh 


cost TO mcost 


SAY 
SAY 


"DATA OF THE RECORD ! 
"DELETION OF % 


SET COLOR 19 7209910 


@ 3,14 SAY +£ 


! (narstrna) 


SET COLOR TO 30,14 
@ 2,60 SAY DATE() 


d 4,1 SAY E KEK KKK KEK Ó 

0 6,1 SAY 'ARPL STCRE NAME :'  tmarstrna 

© 7,1 SAY "DESCRIPTION 2 *ndesc 

a 8,1 SAY ‘AIRPLANE TYPE za tnarplt 

@ 9,1 SAY “SHELF NUMBER za tmaslino 

® 10,1 SAY “PART NUMBER se tn pno 

a 11,1 SAW ‘OOH ce +STK (mgok, 5) 
DENZ j| SAY "COST stá ESTR(MEGOSE , 8) 
DI 0 SAY T PLEASE BE PATIENT..." 

DELETE 

SKIP 

LCOP 


33 


ENDIF 
SKIP 


ENDDO WHILE 


P AC K 


ENDDO WHILE t 


kkk kkk kolk KK DOWwStl. PIG FRR RK ERK KKK KEK KK KK KEK KEK KK 


* AUTHOR 
* DATE 


z KONDYLOPOULOS HARALABOS 
2510229295 


"PURPOSE : THIS PROGRAM DELETES WEAPON STORES FROM 


* 


mi ME SES DEN 


X * A e fe ee IE AC o k kk kk kk kk k kk 


SET COLOR 10 10/22 
SET ESCAPE OFF 
SET TALK OPF 


ERASE 
DO WHILE t 
ERASE 
STORE ! ' TO mwstrna 


Q 2,1 SAX "DELETING FROM WEAPON STORES FILE ' 
@ 2,60 SAY DATE() 
0 4,20 SAY ' ENTER WEAPON STORE NAME ' GET mwstrna 
a 23,1 SAY ' ENTER A BLANK TO EX IE U DERE t E 
READ 
IF $(mwstrna,1) = © © 
RETURN 

END IF 
SELECI PRIMARY 
USE wstores INDEX wstores 
FIND Smwstrna 
IF # = 0 

SET COLOR TO 112, 149 

© 22,1 SAY * THAT PART IS NOT ON (LUS 5110 0) 

QJ 22,3 SAY ' PLEASE TRY AGAIN ' ° 

SE1I COLOR 10130 14 
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© 23,1 SAY CHR (7) 

SET TALK ORE 

STORE 1 TO 2 

DO WHILE z<30 
STORE zt1 TO z 

ENDDO WHILE 


LOCP 
ENDIF # = 0 
ERASE 
DO WHILE  .NOT. EOF 
IF wstrna = mwstrna 
ODS SAT DEEL SON OF! 


SET COLOR TO 20, 10 
d 3,14 SAY + 
SET COLOR TO 30, 14 


! (nwstrna) 


Q 4,1 SAY ! ERK NCNCK 2 NCK 1 

STORE * ' TO mdesc 
STORE ! ' TO mslfno 

STORE ! ' TO mwstrna 
STORE * ' TO mpno 

STORE 0 TO ngoh 

STORE 0.00 TO mcost 

ERASE 

STORE desc TO mdesc 

STORE arplt TO marplt 

STORE wslfno TO mwslfno 

STORE wstrna TO mwstrna 

STORE pno TJ) mpno 

SIORE goh TO mgoh 

STORE cost TO ncost 

ERASE 

0 2,1 SAY “DATA OF THE RECORD " 
O 3, | SAY *DELETION OF * 


ST COLOR TO 20,10 


® 3,14 SAY + 


! (nwstrna) 
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SET COLOR TI 30, 14 


0 2,60 SAY DATE() 
D 4,1 SAY trar aio t 
d 6,1 SAY 'ARPL STCRE NAME :' tmwstrna 
A 7,1 SAY “DESCRIPTION 2% +mdesc 
Qd 8,1 SAY ‘AIRPLANE TYPE t +O r DDOS 
0 9,1 SAY 'SHELF (NUMBER i“ +¢mwslfno 
A 10,1 SAY "PART NUMBER 2* +apno 
A 11,1 SAY ‘QOH s“ +STR (ngol 04 
© 12,1 SAY "COSI :' +S5TR(ncost 4 
aà 18,20 SAY 'PLEASE BE “PATIENT EN 
DELETE 
SKIP 
LCOP 
ENDIF 
SKIP 
ENDDO WHILE 
PACK 


ENDDO WHILE t 


* Kk kk k kk k k kk kk DejStC.prg KARA kk k RA kokos skok skok ok skok sk kk de e Ame K 


* AUTHOR z KONDYLOPOULOS HARALABOS 


* DATE : 10-29-85 
* PURPOSE 2 THIS PEOGRAM DELETES JUNK STORES PRO 
x S CIHECOSYSTEM 


KRKK KKK kkk kkk kk kkk kkk kkk kkk k DE RD K KK KKK KOK KK KKK KK 


SEL COLOR 10 30,22 
SET ESCAPE OFF 
SET TALK OFF 


ERASE 
DO WHILE t 
ERASE 
STORE *# ' TO mjuna 


© 2,1 SAY "DELETING FROM JÚNK SE0005 IR: 


dD 2,60 SAY DATE() 
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à 4,20 SAY ' ENTER JUNK STORE NAME ' GET njuna 
D 23,1 SAY * ENTER A BLANK TO EXIT TO DELMENU * 
READ 
IF $ (mjuna,1,1) sf? 
RETURN 
ENDIF 
SLBEC I PROHARÝ 
USE junstores INDEX junstores 
FIND &mjuna 
IF # = 0 
SET COLOR TO 112,140 
OM BAIRR THA PARU 15 NO! ON THE FILE !!! " 
Q "22 /3 SAY "PLEASE TRY AGAIN ' 
SET COLOR TO 30,14 
0 23,1 SAY CHR (7) 
SE TALK OFF 
STORE | TO Z 
DO WHILE z<30 
SHORE 2+1 TO Z 
ENDDO WHILE 
LOCP 
ENDIF # = 0 
ERASE 
DOMY ELE NOL. EOF 
IF juna = mjuna 
0 3,1 SAY ‘DELETION OF ! 
SELL COLOR TO 20, 10 
0 3,14 SAY + ! (mjuna) 
SET COLOE TO 30, 14 
D 4, 1 SAY "ora +h 


STORE? ' TO mdesc 
SO ' TO njslfno 
STORE! ' TO njuna 
SUIS f ' TO npno 


STORE 0 TO maoh 
8 7 


STORE 
ERASE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
FRASE 
DEZAN 
Quse 


0.00 TO mcost 


desc TO mdesc 
jslfno TO njslfno 
juna TO njuna 

pno TO npno 

goh TI nmgoh 


cost TO ncost 


SAY 'DATA OF THE RECORD ' 
SAY 'DELETION OF ' 


SET COLOR 70 20,10 

d 3,14 SAY + !(mjuna) 
SET COLOR TO 30,14 
O12, 00 SAY DATE () 


D 4,1 SAY tee RRKKKE t 
9 6,1 SAY 'ARPL STORE NAME :' +mjuna 
@ 7,1 SAY “DESCRIPTION :' +mdesc 
® 8,1 SAY ‘SHELF NUMBER Sa +njslfno 
A 9,1 SAY "PART NUMBER zf +npno 
a 10.1 SAY “Ven Si +STR (mgoh, 5) 
© 11,1 SAY *COST on +STR (mcost, 8) 
© 18,20 SAY ‘PLEASE BE PATTIE. 
DELETE 
SREP 
LCOP 
ENDIF 
SKIP 


ENDDO WHILE 


PAC K 
ENDDO WHILE t 


ke k kk ek deke k kkk Deacs tr. prg AAA RH HE HAE M HER k ak Me Me de He TEL 


* AUTHOR z KONDYLOPOULOS HARALABOS 
* DATE O 
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ZSePURPOSE 2 THIS PROGRAM DELETES ACCESSORIES STORES FROM 


* 


IH F SLOLEM 


Be < < * >< * * ck * oc eoe oec oec oc oc oe oco Oeo oc oc oc CC OC o kk Ó s 


SET COLOR TO 30,22 
SET ESCAPE OFF 
SET TALK OFF 


ERASE 
DO WHILE t 
ERASE 
STORE! t TO macstrna 


002, | SAY “DELETING FROM ACCESS STORES FILE * 
0 2,60 SAY DATE() 
a 4,20 SAY * ENTER ACCES STORE NAME * GET macstrna 
DO VNEME AN MV ENTER AVELANK TO EXIT TO DELMENU * 
READ 
IF $(macstrna,1) = * * 
RETURN 
ENDIF 
SELECI PRIMARY 
USE acstores INDEX acstores 
FIND &macstrna 
IF # = 0 
SEI COLOR TO 112, 140 
DINSA Ate ean IS NOT ON THE FILE !!! * 
® 22,3 SAY ' PLEASE TRY AGAIN ' 
SET COLOR TO 30,14 
DZ SAY CHR (7) 
SET TALK OFF 
STORE I TO Z 
DO WHILE z<3) 
SURE Zz+1 10 2 
ENDDO WHILE 
LOCP 
ENDIF # = Q 
ERASE 
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DO WHILE 


IF acstrna = 


O 


NO T. EOF 
Macstrna 


SAY "DELETION OF " 


SET COLOR TO 20,10 


A 3,14 SAY + 


! (nacstrna) 


SET COLOR TO 30,14 


à 4,1 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
ERASE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
ERASE 
à 2,1 
a 3,1 


SAY '** **  G*Q* I 


' ' TO mdesc 


s ' TO macslfno 


1 * TO macstrna 


: ' TO mpno 
0 TO mgoh 


0.00 TO ncost 


desc TO mdesc 

arplt TO narplt 
acslfno TO macslfno 
G.C 0 nacsteng 
pno TO mpno 

goh TO ngoh 


cost TO mcost 


SAY 
SAY 


'DATA OF THE RECORD * 
'DELET IGNSODP P: 


SET COLOR MIO" 20,10 


@ 3,14 SAY + 


!(macstrna) 


SET COLOR T9 30,14 
@ 2,60 SAY DATE() 


D 4, 1 SAY '* + * =£ 

@ 6,1 SAY f*'AEPL_ STORE NAME PP E p c s ona 

© 7,1 SAY "DESCRIPTION :' +mdesc 

Q 8,1 SAY "AIRPLANE TYPE sf tmarplt 

Q 9,1 SAY "SHELF NÚMESE :' +macsltno 

a 10,1 SAY "PART NUMBER :* —*npno 

o 11,1 SAY "QOH s. “STR (nGo l 9 
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Geet 2s li SAT COST : 
IELEASE BE PATIENT....' 


@ 18,20 SAY 
DELETE 
SKIP 
LCOP 
EN DIF 
SKIP 
ENDDO WHILE 
PACK 


ENDDO WHILE t 


+STR(ncost „8) 


ok kook kook ack ka Modimenu. prg XX 2% da de AH NH k HE HE HAE k KE AR 


x AUTHOR : KCNDYLOPOULOS HA RALABOS 


* DATE 10e 20“ — 95 
* PURPOSE : THIS PROGRAM ALLOWS THE USER 


x 


SET 
SET 
SET 
DO 


TO SELECT A 


: CHOICE FOR THE APPROPRIATE FILE MODIFICATION 
ik < * k kk k Kk k k k k kk k kk kK kk k kkk kkk k kk ak kkk k kk Kk kk k kk k k kk k k kK k k k k kk k 
SELECT PRIMARY 
SET COLOR TO 20,5 


TALK OFF 
FORMAT TO SCREEN 
CONSOLE ON 


WHILE t 


CLEAR 
ERASE 


JT SAY f 

KI ISAY. ! 
21 T SAY A 
VS. U SAY I 
UI ESA $ 
9,45 SAY ' 


Y Y Y y © © && © v 


1,15 SAY "kx 
3,1 SAY 'MODIMENU' 
3,60 SAY DATE() 
7,1 SAY ' OPTIONS:' 
0 EXIT TO OPERATING SYSTEM! 


U E U NM oo 


ONE RE ANJE VNEME SMO STEM "xxx kari! 


MODIFICATION OF 
MODIFICATION OF 
MODIFICATION OF 
MODIFICATION OF 


PARTS! 

AIRPL STORES"! 
HEAPON STORES! 
SUPPLIERS! 


MODTETCAITION OF JUNK STORES' 


o 


TAS SA YOn MODIFICATION OF ACCESS TOURS 
13,45 SAY ' MODIFICATION OF ORDERS ' 


a 
Q) 
® 15,45 SAY ' MODIFICATION OF INVOICE ' 
Q 
à 
Q 


NO © N oO 


17,45 SAY ! EXIT TO MAIN MENU? 
19,26 SAY ' X EXIT TO DATABASE * 
20,1 SAY SELEC CHOICE 
STORE * TPO choice 
WALT TO Choice 
DO CASE 
CASE choice 
CLEAR 
QUIT 
CASE choice 
DO mopart 
USE 
CASE choice = 12% 
DO moarstr 
USE 
CASE choice = "3t 


v)" 


ti 
æ 
o 
E 


DO mowpstr 
USE 

CASE choice = "4' 
DO mosuplr 
USE 

CASE choice = ‘5! 
DO mojustr 
USE 

CASE choice = "6" 
DO moacstr 
USE 

CASE choice - 4 
DO moorder 
USE 

CASE choice = "se 
DO mousage 


9 


USE 

CASE choice 
RETURN 
USE 

CASE choice = *K* .OR. choice = ‘x! 
CANCEL 

OTHERWISE 
STORE 10 Zz 
DO WHILE z<5 
SET COLOR TO 112, 140 
DO ENVASADO ICE. PLEASE TRY AGAIN " 
SET COLOR TO 30,14 
A 31,5 SAY CHR (7) 

STORE Zt IO z 

EN LDO 

ENDCASE 

ENDDO WHILE t 


“9! 


eR RK REE Mopar tep rg FR kaak a ak ak kak kk ak akak a k kk k kk 


* AUTHOR : KCNDYLOPOULOS HARALABOS 
* DATE 2 1142-85 
* PURPOSE : THIS PROGRAM MODIFIES PART WITH AUTOMATIC 


* : UPDATING OF THE EFFECTED FILE 
ze oic o EE e e EE E OK ok tok kok to kK dk ek kk ok dk KK 
EIT ESCAPE OFF 
SET COLCR TO 14,30 
SELECT PRIMARY 
PT TALK OFF 
ERASE 
*© 8,18 SAY 'ELEASE BE PATIENI.....' 
DO WHILE t 
USE parts INDEX parts 
STORE “ * TO mpno 
ER ASE 
0m 29 SAY Y EDITING OP A FILE" 


SS 


© 3,20 SAY ' ENTER PART NUMBER“ GET mpno 
d 20,2 SAY ‘ENTER À BLANK TO EXIT TO MODIMENU' 
@ 3,50 SAY DATE() 
READ 
IF $(npno, Wi me im? 
RETURN 
ENDIF ¿(mpno,1,1)= * * 
FIND &mpno 
IF #=0 
ERASE 
© 13,17 SAY * THIS RECORD IS- NOTRE pR 
STORE ' ' TO nmanswer 
2 Foret za! 
SES OLO K TO 20510 
z o oe bo 2M 
SET CCLOR TO 3), 14 
so fto try again ore. 
SET COLOR TO 112,140 
DE EJ 
SET COLOR TO 30,14 
27 "if not and then hit return ' 
SET COLOR TO 10720 
ACCEPT 1C manswer 
SET 'COLOR TO 7307004 
IF manswer - 'N' .OR. manswer - 'n' 
RETURN 
ELSE 
LOOP 
ENDIF 
ENDIF 
ERASE 
o 1,20 SAY "EDITING OF 1 am 
Q 3,50 SAY DATE() 
STORES ' TO ndesc 
5105 ' TO marplt 
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STORE ° ' TO mmanfnn 


STORE * * TO marstrna 
STORET? “CTO njuna 

STORE. '! ' TO mwstrna 
S NORE V" ' TO macstrna 


STORE 0 TO mgoh 

STORE 02500 TO mcost 

ER ASE 

STCRE desc TO mdesc 

STORE arplt TO marplt 
STCRE manfnm TO mmanfnon 
STORE arstrna TO marstrna 
STORE wstrna TO mwstrna 
STORE juna TO mjuna 

STORE acstrna TO macstrna 
STORE qoh TO mqoh 

STORE cost TO mcost 


* Edit the new values 

® 8,1 SAY "PART NUMBER <* +mpno 

d 9,1 SAY 'DESCRIPTION ' GET mdesc 

) 10,1 SAY 'ARPLT ' GET marplt 

d 11,1 SAY 'MANFNAME ' GET mmanínm 

à 12,1 SAY 'QOH ' GET mgoh 

® 13,1 SAY 'COST "GET ncost 
DO CASE 


CASE marstrna <> ' : 

LT COLOR TO 112, 180 

o 14,1 SAY "“ARPLPA STO #" GET nmarstrna 
CASE Mwstrna <> ' í 

SET COLOR TO 20, 10 

d 15,1 SAY ‘WEAPON STO %' GET mwstrna 
CASE nacstrna <> ‘ : 

SET COLOR TO 112,140 

3 16,1 SAY "ACCES STOR #" GET nacstrna 
CA SE m juna <> f e 


J5 


SET COLOR TO 20 00 
0 17,1 SAY “JUNK STORE #" GET mjuna 

ENDCASE 
SET COLOR TO 30.14 
READ 
* Replacment of the values 
REPLACE desc WITH mdesc, arplt WITH marplt 
REPLACE wstrna WITH mwstrna, cost WITH mcost 
REPLACE juna WITH mjuna, acstrna WITH macstrna 
REPLACE goh WITH mgoh, arstrna WITH marstrna 
CASE arstrna <> ' : 
SELECT SECONDARY 
USE arstores INDEX arstores 


FIND &mpno 

STORE f TO masltno 

STORE aslfno TO masifno 

ERASE 

0 6,1 SAY "ARPL STORE NAME :' timar Steni 

© 7,1 SAY *PART NUMBER :' + upno 

008, LS AT "DESCRIPTION :' + mdesc 

© 9,1 SAY 'ARPL TYPE st + nacput 

D 10,1 SAY ‘QUANT IN HAND st + STR(mqoh,5) 
Q 11 T SAY "COST 2“ + STRÍNGOS 00) 


SET COLOR TO 112,140 
d 12,1 SAY “AIRPL SHELF NUMB:' GET maslfno 
SEJ ODO TON JO TI 
READ 
REPLACE arstrna WITH marstrna, prom mis imo 
REPLACE arplt WITH marplt, cost WITH mcost 
REPLACE goh WITH ngoh, aslfno WITH naslfno 
REPLACE desc WITH mdesc 
CLEAR 
LOQP 
CASE wstrna <> ° s 
| SELECIT SECONDARY 
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USE wstores INDEX wstores 


FIND &mpno 

STORE "' ' TO mwslfno 

STORE wslfno TO mwslfno 

ERASE 

Q 6,1 SAY 'WEAPON STO NAME :' + mwstrna 

Q 7,1 SAY 'PART NUMBER 2“ + mpno 

@ 8,14 SAY "DESCRIPTION :' + mdesc 

0 9,1 SAY 'ARPLN TYPE s Mc lt 

D 10,1 SAY 'QUANTITY ON HAND:* + STR(ngoh, 5) 
u ll“ SAY "COST s. + STR(mcCcosts;8) 


SET COLCR TO 112,140 
3 12,1 SAY 'WEAPON SHELF % :' GET mwslfno 
SET COLCE TO 30,14 
RE AD 
REPLACE wstrna WITH mwstrna, pno WITH mpno 
REELACE arplt WITH marplt, wslfno WITH mwslfno 
REPLACE cost WITH mcost, cost WITH mcost 
REELACEdesc WITH mdesc 
CL EAR 
LO CP 

CASE juna © ! ' 
SELECT SECONDARY 
USE junstores INDEX junstores 


FIND &mpno 

STORE '! Eo mjslt£no 

STCRE jsifno TO njslfno 

ER ASE 

Q 6,1 SAY 'JUNSTORES :' + mjuna 

d 7,1 SAY "PART NUMBER st + MHpPNRE 

à 8,1 SAY "DESCRIPTION :' + mdesc 

dD 9,1 SAY "QUAN ON HAND AS EMO Ao) 

o 10,1 SAY ‘COST Se STR (ncost,8) 


SET COLOR TO 112,140 
3 11,1 SAY 'JUANK SHELF NU4:* GET mjslfno 
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SET COLOR TO 30), 14 
RE AD 
REPLACE juna WITH mjuna, pno WITH mpno 
REPLACE jslfno WITH mjslfno, qoh WITH mqoh 
REPLACE desc WITH mdesc, cost WITH mcost 
CL EAR 
LO OP 

CASE macstrna <> ' : 
SELECT SECONDARI 


USE acstores INDEX acstores 


FIND &mpno 

STORET ' TO macslfno 

STORE acslíno TO macslfno 

ER ASE 

O U SA FACE S BORE S 2“ + nacstrna 

d 7,1 SAY “PART NUMBER :' +. opno 

a 8,1 SAY "DESCRIPI TON s“ + maesc 

Q 9, 1 SAY ARPL TYPE ST + Marple 

Q 10,1 SAY *OUANT ON HAND s + SFrAafngon sy 
DWG a SAM COST :! + STR(ncost oi 
SET COLOR TO 112; 140 

O. 12,1 SAY :TACCESS5-SHELEF -A :t GET nacsii njo 
SET COLOR TO730; 14 

k E AD 


REPLACE acstrna WITH macstrna, pne WILL mhi 
KEPLACE acslfno WITH macslfno, arplt WITH marplt 
REPLACE cost WITH mcost 
REPLACE desc WITH mdesc, goh WITH mgoh 
CLEAR 
LO CP 
OTHERWISE 

d 18,10 SAY * THIS PART IS NOT IN THE INVENTORY 
CLEAR 
LOCP 

EN DCAS & 


tan 
$us 
- 
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ENDDO WHILE t 


kk kk k k kk k k k kkkk kk Mosuplr. prg FER EK KEK KEK RK KEKE k k 
* AUTHOR z KONDYLOPOULOS  HARALABOS 

* DATE 3 022-295 

™ PURPOSE <: THIS PROGRAM MODIFIES THE SUPPLIER'S DATA 

ake eche BYE Ok e al k kik ka tok kkk ok tok kk kk kk kK kok tok ok tok ak ok x 
SET COLCR TO 14,30 

SET ESCAPE OFF 

SELECT PRIMARY 

SET TALK OFF 


ERASE 

DO WHILE t 
USE suppliers INDEX suppliers 
STORE * “ TO mnanínn 
ER ASE 


d 1,20 SAY * EDITING OF A FILE" 
0 3,20 SAY * ENTER SUPPLIER NAME “GET nnanfnn 
© 20,2 SAY “ENTER A BLANK TO EXIT TO MODIMENU' 
d 3,60 SAY DATE() 
READ 
STORE !(mmanfnm) TJ mmanfnm 
IF $(mmanfnmn,1,1)=' ‘ 
RETURN 
ENDIF $(mmanfnm,1,1)- " * 
FIND 6mmanfnm 
IF #=0 
ERASE 
SA lS RECORD IS NOT IN THE FILE! 
STORE " * TO manswer 
s ' Enter a! 
SEI CCLOR TO 120,10 
A SY vu 
SELWEGFKOR “TO “30, 14 
LAT try again ,or . 
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SET COLOR TO 112, 140 


< 


22 W" EN 17 


SET COLOR TO 30,14 
22 ‘if not and then hit return ' 
SET "COLOR 0 10.20 
ACCEPT TO manswer 
SET COLOR TO 30,14 
IF manswer - 'N' .OR. manswer - 'n' 
REIURN 
ELSE 
LOOP 
ENDIF 


ENDIF 


ERASE 


0 1,20 SAY 


"EDITING OF A FILE“ 


à 3,50 SAY DATE() 


STORE 
STORE 
STCRE 
STORE 
STORE 
STORE 
ER ASE 
STORE 
SLORE 
STORE 
STORE 
STORE 
STORE 
1 ORE 


TO mmanfadr 
: v 11010n21P:-6e 
, ' TO mcountry 
TO marplt 

TO mdel:time 


TO mproduct 


manfnm TO mman£nm 
manfadr TO mmanfadr 
ziupsco 10 nzip co 
country TO mcountry 
arplt TO narplt 

del: t1ne TO ndel: tine 
product TO mproduct 


x Edit the new values 


® 8,1 


SAY '"SUPPIWER NAME 


SET COLOR T0.20 710 


a 8,17 SAY 


t! (+ mmanfnn) 


Sh T COLOR TO 30514 
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© 9,1 SAY “SUPPLIER ADDRESS" GET mmanfadr 

d 10,1 SAY "ZIP:CODE GE IZID co 

d 11,1 SAY "COUNTRY ' GET mcountry 

d 12,1 SAY 'ARPLANE TYPE ' GET marplt 

© 13,1 SAY "DELIVERY TIME ' GET mdel:time 
© 14,1 SAY ‘PRODUCT ' GET mproduct 
READ 


* Replacment or the values 
REPLACE manínm WITH mnanínnm, nanfadr WITH nnmanfadr 
REPLACE ZIP“SCO WIT]A mzip:co, arplt WITH marplt 
REPLACE product WITH mproduct, country WITH mcountry 
REPLACE del:tine WITH mdei:tine 

ENDDO WHILE t 


kkk kkk k k kk ko kk kk MOUSAGE. PL G Fb k kk KK KE KK KEK K 
* AUTHOR : KCNDYLOPOULOS HARALABOS 

* DATE AO 

* PURPOSE : IHIS PROGRAM MODIFIES IHE INVOICE DATA 

X oko eR KK KK Ye de k sk k k k e OR KK kok de kk kk 
SET COLOR TO 14,30 

SET ESCAPE OFF 

SELECT PRIMARY 

EET TALK OFF 


ERASE 

DO WHILE t 
USE usage INDEX usage 
STORE * ' TO minvno 
ERASE 


MWA, 20 SAY ' EDITING OF A FILE! 

© 3,20 SAY ' ENTER £NVOICE NUMBER“ GET minvno 
© 20,2 SAY "ENTER A BLANK TO EXIT TO MODIMENU" 
d 3,50 SAY DATE() 

READ 

IF $(minvno,1,1)-" * 


RETURN 
One 


ENDIF $(minvno,1,1)< R '* 
FIND &minvno 
IF #=0 

ERASE 


à 13,17 SAY ' THIS RECORD IS NOT IN 11 0000 


STORE * ©“ TO manswer 
z “Ente a 
SET COLOR TO 1207190 
22 HEURE 
SBT 0 CGLORnR” U TO 39. 14 
22 t 1os rry again OL 
SET COLOR TO 112, 140 
Quo MES eee 
SET COLODUTOJSSOL TU 
22 "if not and then hit return 
SET COLOR TO 10; 20 
ACCEPT TC mansvwer 
SET COLCR TO 30,14 
IF manswer = 'N' .OR. manswer 
RETURN 
ELSE 
LOOP 
ENDIF 
ENDIF 
Eh ASE 


3 1,20 SAY 'EDITING OF A FILE" 
à 3,50 SAY DATE() 


SIRE ' TO ndesc 
STORE ' ' TO mpno 

STORE! ' TO munane 
STORE ' TO mdate 
SUCRE * TO muaddr 


STORE DEED 
STORE 0.00 TO mcost 
ER ASE 


= tn? 


STORE invno TO minvno 
STORE desc TO mdesc 
STCRE pno TO mpno 
STORE date TO mdate 
STORE uname TO munane 
STORE uaddr TO muaddr 
STORE qnt TO mgnt 
STORE cost TO mcost 

* Edit the new values 
d 8,1 SAY “INVOLCE NUMBER 2" 
SET COLCR 10 20,10 

0 8,17 SAY !(+ minvno) 
SP TIGOLOR TO 30,118 


© 9,1 SAY "DESCRIPTION * GET mdesc 

© 10,1 SAY "DATE ' GET mdate 
® 11,1 SAY ‘USER NAME ' GET muname 
0 12,1 SAY “USER ADDRESS" GET muaddr 
0 13,1 SAY "PART NUMBER ' GET mpno 

© 14,1 SAY "ONT ' GET nqnt 
JNS SAY “COST ' GET mcost 
READ 


+ Replacment of th2 values 

REPLACE desc WITH mdesc, date WITH mdate 
REPLACE pno WITH mpno, invno WITH minvno 
RE PLACE gnt WITH mgqnt, uaddr WITH muaddr 


REFLACEuname WITH muname, cost WITH mcost 


ENDDO WHILE t 


fC KK oa k kk kk MOOrder.prg LL + j kk Kik k kk kO 


* 


* 


* 


* 


AUTHOR z KONDYLOPOULOS HARALABOS 
DATE z 11-3-85 
PURPOSE : THIS PROGRAM MODIFIES THE ORDERS OF THE 


ME ARTS ON THE ORDER FILE 


AK AK + eo OK K OK kk k kok KOK k kok X Í e oe oe eo Ko KKK KK k K 


SET COLCR TO 14,30 


105 


SET ESCAPE ORF 
SELECT PRIMARY 
SET TALK OFF 


ERASE 
* Create a continue loop 
DO WHILE. CL 
USE orders INDEX orders 
STORET” * TO mordno 
ER ASE 
© 1,20 SAY “ EDITING OF A FUN 
A 3,20 SAY * ENTER ORDER NUMBER" GET mordno 
A 20,2 SAY ‘ENTER A BLANK TO EXIT DOV HODIM ENE 
© 3,50 SAY DATE() 
READ 


IP $tmordno,1,1)2 ue 


RETURN 


ENDIF $(mordno,1,1)- ' ' 
FIND &mordno 
IF #=0 


ERASE 

d 13,17 SAY ' THIS RECORD IS NOT IN Paes tee 
STORE ' ' TO manswer 

z "Enter a ' 

stl COLOR 107120710 

P e e 

SEI COLOR TO 3); 1d 

SEO ELY agarmeors 

SET GOLOB TO, 10102, 140 

Z 

SET, COLOR TO 3033115 

2? "if not and then hit return) 
SET COLOR TOMIO T O 


ACCEPT TO man Swer 


SET CCLCR TO 50m 


IF manswer = 'N' „OR. maLSswer = 'n' 
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RETURN 
ELSE 
LOCP 
ENDIF 
ENDIF 
ERASE 


d 1,20 SAY 
d 3,55 SAY 


STORES 
STORE 
STORE 
ST CRE 
STORE 
STORE 
STORE 
ER ASE 
STORE 
STORE 
STORE 
SICRE 
STORE 
STORE 
STORE 
d 8,1 


"EDITING OF A FILE" 
DATE () 


' ' TO mdesc 


TO mpno 


' ' TO mmanfnm 


' ' TO mdate 
' ' TO mordna 


nqnt 
IO mcost 


desc TO mdesc 

pno TO npno 
manfnm TO mmanfnm 
date TO mdate 
ordna TO mordna 
qnt TO mqnt 

IO mcost 
"CEDER NUMBER 


cost 
SAY 


Sole COLOR 10° 20, 10 


3 8,17 SAY 


t (+ mordno) 


SET COLOR TO 30,14 


à 9,1 


o 10,1 
o 11,1 
dD 12,1 
a 13,1 
@ 14,1 
@ 15,1 
R 


E AD 


GET mdesc 
GET 
GET 
GET 
GET 
GET 
GET 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


'DESCRIPTION ' 
"DATE ' 
'MANFACT NAME ' 
"ORDER NAME  ' 
"PART NUMBER ' 
"QUAN ON HAND " 
"COST ' 


mdate 
maanfnm 
mordna 
mpno 

mg nt 


mcost 
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* Replacment of the values 

REPLACE desc WITH mdesc, date WITH mdate 

REPLACE Eno WITH mpno, ordno WITH mordno 

REPLACE gnt WITH mqnt, ordna WITH mordna 

REPLACE manfnm WITH mmanfnm, cost WITH mcost 
ENDDO WHILE t 


+ kk k k kk kk Reponenu. peg | Óeletetekokck xokcokeotototekotexok Me ke ok sk ok sk ok ok ak 


* AUTHOR z KONDYLOPOULOS HARALABOS 

* DATE : 119-6565 

* PURPOSE : THIS PROGRAM SELECTS THE REQUIRED REPORT 

* : OPERATION OF THE SYSTEM BY USING MENU DRIVEN 
* CHOICE 


AX XC o ooo Xo skok A A KE K XK OK fc OK ee OR OR ANC A Me MC OCC OC OC OC k KK [s 


SET ESCAPE OFF 
SELECT PRIMARY 
SET COLOR TO 20,5 
SET TALK OFF 
SET FORMAT TO SCREEN 
SET CONSOLE ON 
DO WHILE t 
CLEAR 
ERASE 
3 1,15 SAY "**** 'AIRPLANE' PARTS SYSTEM !**kkkkn 
à 3,1 SAY 'REPOMENU' 


d 3,60 SAY DATE() 

à 7,1 SAY ' OPTIONS: * Y 

3 9,1 SAY ' O EXIT TO OPERATING SYSTEM* 

0 11,1 SAY ' 1 LISTING OF ALL THE INVENTORY' 

3 13,1 SAY " 2 LISTING OF ALL THE SUPPLIERS' 

à 15,1 SAY ' 3 LISTING OF ALL THE ORDERS' 

à 17,1 SAY ' 4 LISTING OF ALL THE INVOICES'* 

à 19,1 SAY ' 5 LISTING OF ALL THE AR STR PARTS' 
à 9,38 SAY ' 6 LISTING OF ALL THE JU STR PARTS' 
à 11,38 SAY ' 7 LISTING OF ALL THE WE STR PARTS! 
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@ 13,38 SAY '!' 8 LISTING 
@ 15,38 SAY © 9 EXIIT TO 
3 17,38 SAY ' X EXIT TO 


SELECT CHOICE 
TO choice 


ó 20,1 SAY ' 

STORE "o! 

WAIT TO choice 

DO CASE 

CASE choice 
CLEAR 
QUIT 

CASE choice 
DO repart 
USE 

CASE choice = 
DO resupir 
USE 

CASE choice = 
DO reorder 
USE 

CASE choice = 


H 

- 
<> 

a 


vi! 


2! 


3! 


DO reusage 
USE 

CASE choice = 
DO rearstr 
USE 

CASE choice = 
DO rejstr 
USE 

CASE choice = 
DO rewstr 
USE 

CASE choice = 
DO reacstr 
[LS E 

CASE choice = 


71! 


91 
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OF ALL THE AC STR PARTS! 
DATABASE! 
MAIN MENU! 


CANCEL 

CASE choice = (X' OR. Choice <mai 
RETURN 
USE 

OTHERWISE 
STORE 1 TO Z 
DO WHILE z<10 
3 30,5 SAY " INVALID CHOICE... PLEASE TRY TASAS 
0 31,5 SAY CHR (7) 

STOBE.Z*1 TOTZ 

EN EDO 

ENDCASE 

ENDDO WHILE t 


kkokokokokokokkokokokokokkok Repart.prg *řtkkokokokokokokok kok okokokokokokokok ok k kk kk 


* AUTHOR 2 KONDYLOPOULOS  HARALABOS 

# DATE 21122895 

* PURPOSE : THIS PROGRAM LISTS THE INVENTORY Of 410 PE 
x < PARIS OF Unio YS 05a 


AK 2X K AK KK eK eK KK KK KK KK RK KK KK KKK KKK KKK KKK KKK KKK 


SET PRINT OFF 

SEI ESCAPE OFF 

SET COLOR TO 30,14 

SET TALK; OP P 

SET ALTERNATE TO repart.txt 

SET ALTERNATE ON 

ERASE 

0 2,18 SAY “@“**#ëk****O TNVENTORY LISTING ks | 
Sobi COLOR TO 20, 10 

© 2,60 SAY DATE () 

SET COLOR FO. 30714 

USE PARIS 

o 10,13: SAY INDEXING -ai PLEASE BE PATIEN® 

0 16,18 SAY ‘IF YOU WANT TO CANCEL. PLEASE HLI ŠESCIE: MM 
STORE t TOM kag 
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DO WHILE flag 
ERASE 
STORE * * TO mquery 
ACCEPT " PRINTED INVENTORY ? Y/N " TO mquery 
ERASE 
IF mquery = 'Y'.OR. mquery = 'y' 
SET PRINT ON 
STIORE 1110 € 
DO WHILE C<5 
SET COLOR TO 20, 10 
SET PRINT ON 
© 12,20 SAY *SET PRINTER ON PLEASE! 
0 12,50 SAY CHR(7) 
STORE c+1 TO c 
SET COLOR TO 30,14 
ENDDO WHILE 
ELSE 
SET PRINT OFF 
ENDIF 
STORE t TO xílag 
DC WHILE xflag 
ERASE 
SET COLOR TO 112,140 
IN SALES AO USAN TO FREEZE THE SCREEN! 
Te SA  PURINE THE LISTING, HIT CTRL NUM ' 
dacs NL OCR, LO CONTINUE, PRESS ANY KEY ' 
SEL COLCORTTO 30, 14 
® 1,5 SAY '*****ee* REPORT MENU Rokr! 
SET COLOR TO 20, 10 
® 3,15 SAY “ARPLANE TYPE MENU" 
@ 3,60 SAY DATE () 
SET COLOR TO 30, 14 
Qd 4,1 SAY ‘OPTIONS ! 
O Smíl SAY ' 0 D pu 
Wo, A. SAY “ 1 Eas 
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0 7,1 Say | 2 5-08 

à 8,1 SAY ' 3  C-130' 

0 9,1 SAY ' 4 F-4 ' 

do 5,30 SAY ' 5 F-5 ‘ 

do 6,30 SAY ' 6 F-16 ' 

0 7,30 SAY ' 7 cC-u7 ' 

2 8,30 SAY * 8 F-18 ' 

2 9,30 SAY * 9 PRINT YOUR CHOICE * 
à 10,15 SAY ' X EXIT TO REPOMENU ' 
à 17,1 SAY 'OPTION:' 


STORE t TO Choice 
WAIT TO choice 
ERASE 
DO CASE 
CASE choice = *0 
SET COLORATO 20070 
d 18,30 SAY ' PARTS FOR F- 104 ! 
SET COLOR 103014 
LIST FOR arplt = *'F-104' 
CASE choice = ‘1! 
SEI COLOR TO 20 00 
@ 19,30 SAY. “PARIS OP PE 
SET COLOR TO 390. 18 
LIST FOR arpit — 05-053 
CASE(Chorcem, 12! 
SEI COLOR T0. 20.10 
D 14,30 SAY “ PARTS CE 02000 
SET COLOR TO 30,14 
LIST FOR arpit = "ESAS 
CASE choice = ‘3! 
SET COLOR TO 20 00 
A 14,30 SAY ' PARTS OPR SIRO 
SET COLOR TOO 3050 
LIST FOR arpit =T ` | 
CASE choice = 'ų' 


LEG 


SET COLOR TO 20,10 
d 14,30 SAY " 
SET COLOR TO 30,14 
LIST FOR arplt = 
CASE choice = ‘5! 
SETT COLOR TO 20710 
a 14,30 SAY ' 
SET COLOR TO 30,14 
LIST FOR arplt = 
CASE choice = ‘6! 
SET COLOR TO 20,10 
d 14,30 SAY ' 
SET COLOR to 30,14 
LIST FOR arplt = 
CASE choice = ‘7! 
SET COLCR TO 20,10 


PARIS OF F-ų ' 


tp- 4e 


BARI POR F=5 € 


tF-5 f 


PARTS FORREST" 


“F= T65 


a 14,30 SAY ' PARTS FOR C-47 ' 


SET COLOR TO 30, 14 
LIST FOR arplt = 
CASE choice = ‘8! 
SEP COLOR TO 20,10 
Qd 14,30 SAY " 
SET COLOR TO 30,14 


'C-47 1 


BARDS FOR F-18 * 


M FORT arp plt = “F- 168 ' 
CASE choice = 19! 
SET PRINT ON 
LOOP 
CASE choice = 'X' „OR. choice = 'x' 


SER INTO EE 
RETURN 
ENDCASE 
SET ALTERNATE OFF 
STORE ' * TO manswer 
SET COLCR TO 20,10 
ACCEPT 


P 


PNTIPERTATYTIE YOU WISH ANOTHER LISTING, " 


SET COLCR 107 3049013 

ERASE 

IF manswer = 'y' .OR. manswer = *yY' 
SET BFEINT OFF 
LOOP 

ELSE 
RETURN 

ENDIF 

ENDDC 
ENDDO WHILE 
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* AUTHOR z KONDYLOPOULOS HARALABOS 


* DATE z: lič 1-85 
* PURPOSE : THIS PROGRAM" REPORTS THE NAMES OF THE 
Pè 2 SUPPLIERS 


KKK kkk kk Kk k k kk k kk kK KK kkk kkk k kk KKK kk kE Kk kk kkk k k k Kk k kkk kK kk 


SEL “COL Ca TOs 20, 10 
SET TITA bh Ort 
DON ALLE E 
ERASE 
Qd 1,12 BAX TEE SUPPLIERS REPORT £* 3*3 3x! 
d 3,15 SAY ‘ IF YOU WANT TO FREEZE THS SCREEN HIT CHENN 
o 5,15 SAY ' IF YOU WANT TO RETURN TO THE REPORT MENU E 
DS TON SAMOA ETES CS 
USE SUPPLIERS 
SET COLOR TO 30, 14 
STORE * ` TO mquery 
ACCEPT "DO YOU WANT THE REPORT PRINTED ? Y/N “ TO mquery 
IF mquery - 'Y' .OR. mguery - 'y' 
SE LEE REDON 
STORE 1 10 € 
DO AH ILENE<CS 
SET COLOR TO 20 10 
a 12,24 SAY ‘PLEASE... SEI PKINTE RE WE 


IT; 


0 12,50 SAY CHR(7) 
STORE ct1 TO c 
SET COLOR TO 30,14 
ENDDO WHILE 
REPORT FORM SUPPLI 
SET PRINT OFF 
ELSE 
ERASE 
8 3,15 SAY ' IF YOU WANT TO FREEZE THE SCREEN, ' 


o 5,15 SAY * HIT CTRLS IF YOU WANT TO RETURN TO REPORT“ 


255, 16 SAY * MENU, HIT ESC * 
REPORT FORM SUPPLI 

ENDIF 

STORE “ “ TO mquery 

551 COLOR TO 20,10 


ACCEPT “ DO YOU WANT TO REPEAT THE REPORT ? Y/N ' TO mquery 


BET COLOR TO 30,14 

IF mquery - 'Y' .OR. mquery = 'y' 
LOOP 

ENDIF 

RETURN 
ENDDO WHILE 


zk kok KEKE REUSAGE.PL Qd + ták k KKK HR ROK EK KK OX 


* AUTHOR z KONDYLOPOULOS HARALABOS 

* DATE ..1115— l= 65 

EEPURPOSE : THIS PROGRAM REPORTS THE USERS OF THE USAGE 
= EILE 


He He k ke Je Re ck a a loko dak dak lok ok dk kak kk kk oak kx 

SET COLOR TO 20, 10 

SEL TALK OFF 

DO WHILE t 

ERASE 

Q 1,15 SAY '! * KKK USERS REPORT #* RR RK KEK KKK KKK C 

MENO SAY ' IF YOU WANT TO FREEZE THE SCREEN HIT CTRL S 
jelo 


t 


o 5,15 SAY * IF YOU WANT TO RETURN TO THE VREPORT Sea 
aà 5,16 SAY RITEC 
USE usage 
SET COLOR TO 30,14 
STORE '“ ' TO mquery 
ACCEPT "DO YOU WANT THE REPORT PRINTED ? Y/N " TO mquery 
IF mquery = "“Y“ .OR. mquery = ‘y! 
SEL PRINT ON 
STORE T TO r€ 
DO WHILE C<5 
SE L-COMCR AITO. 20 210 
© 12,24 SAY PLEASE.. SET PRENTE REONT 
o 12,50 SAY CHK(7) 
STORE C f IP TO C 
SET COLOR TO 30,14 
ENDDC WHILE 
REPORT FORM usa 
SET" PREMI CET 
ELSE 
ERASE 
Q 3,15 SAY ' TO FREEZE THE SCHEEN, SHE DACA SA 
Q 5,15 SAY ' TO RETUKN TO REPORT MENU NU ENE STE 
z 
REPORT FORM usa 
ENDIF 
STORE v* TO mquery 
SET COLCR TO 20, IO 
ACCEPT "DO YOU WANT TO REPEAT THE REPORT 2 Y/N ' TO mquen, 
SET COLCR TOT O7 14 
IF mquery = *'Y' .OR. mquery = 'y' 
LOO P 
ENDIF 
RETURN 
ENDDO WHILE 
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Fcc Reorder. prog A akak ak a ak ak akak aak a aak ak ak dk NC R KOR OK 


* AUTHOR z KONDYLOPOULOS  HARALABOS 


* DATE zl- 1-85 
* PURPOSE : THIS PROGRAM REPORTS THE ORDERS OF THE ORDER 
* s FILE 


xk 2k de GIO A le le le e e a e alle al al ae ak aie aie ake ake ae a dl ade GK ee ee kak ok ok ai akc ae akc ak ake ak oe ak k 


SET COLCR TO 20, 10 
SET TALK OFF 
DO WHILE t 
ERASE 
@ 1,15 SAY * eek ORDERS REPORT vote a ale ae ale sko 
BW, 15 SAY © TO FREEZE THE SCREEN HIT CTRL S 
INS SAY" TO RETURN TO THE REPORT MENU, HAE SCI 
2 
USE ORDERS 
SET COLCR TO 30,14 
STORE * ' TO mquery 
ACCEPT "DO YOU WANT THE REPORT PRINTED ? Y/N * TO mquery 
IF mquery = "Y* .OR. mquery = ty! 
SET PRINT ON 
STORE 1 TO C 
DO WHILE c<5 
SELA COLOR TO 20, 10 
DI AA SAY PLEASE... SET PRINTER ON * 
0 12,50 SAY CHR(7) 
SORE Ct] TO C 
SET COLOR TO 30,18 
ENDDC WHILE 
REPORT FORM ORD 
SEL PRINT OFF 
ELSE 
ERASE 
Naj. ( SAY " 30 FREEZE THE SCREEN, HIT CTRL Sas 
Peo, 19 SAY * TO RETOURN TO REPORT MENU, HIT ESC ' 
3 


EUS 


REPORT FORM ORD 

ENDIF 
STORE ' ' TO mquery 
SET COLOR 50320519 
ACCEPT "DO YOU WANT TO REPEAT THE REPORT ? Y/N ' TO mquery 
SET COLOR TO 30,14 
IF mquery = "'Y' ZOR mquery = "y" 
LOOP 
END LE 
RETURN 
ENDDO WHILE 


aC Re eka Rearstr.prg RIOR RO kokolo k k kk kk k kk 


* AUTHOR : KONDYLOPOULOS  HARALABOS 


* DATE : 11-12-85 
* PURPOSE : THIS PROGRAM LISTS THE INVENTORY OF THE 
* : AIRPLANE STORES 


x oic to KOR kok KOR KR K Kk RK kok kk ko kok ok kak kak kf kek ka ok SC AC k k k k lee e cake OK 
SET PRINT OFF 
SET ESCAPE SORE 
SET COLCR TO 30,14 
SET TALK OF PF 
SET ALTERNADLE TO! EČalSTE UTE 
SET ALTERNATE ON 
ERASE 
d 2,18 SAY W"****ikO INVENTORY LISTING Tke Ek E 
SET COLOR TO 20,10 
@ 2,600 SAY DEJTE () 
SET COLOR TO 30,15 
USE arstores 
0 10,18 SAY "INDEXING..... PLEASE BE PATES 
© 16,18 SAY ‘IF YOU WANT TO CANCEL. PLEASE HIT «ESCABE MW 
SIORE t TO frag 

DO WHILE flag 

ERASE 
116 


STORE * * TO mquery 
ACCEPT "Ü" PRINTED INVENTORY? Y/N " TO mquery 
ERASE 
IF mquery = 'Y'.OR. mquery = "y' 
SET FRINT ON 
STORE 1 TO c 
DO WHILE c<5 
SET COLOR TO 20,10 
SET PRINT ON 
© 12,20 SAY *SET PRINTER ON PLEASE" 
OBI- SOOMSNI PECHR(7) 
STORE Cr] T? C 
SET COLOR TO 30,14 
ENDDC WHILE 
ELSE 
SET PRINT OFF 
ENDIF 
STORE t TO xflag 
DO WHILE xflag 
ERASE 
SET COLOR TO 112,140 
ioe YS AE REZE THE SCREEN DURING THE ' 
31215 SAY * LISTING HIT CTRL NUM LOCK. : 
012.10 SAY V PRESS ANY KEY TO CONTINUE * 
SET COLOR TO 30, 14 
D ee REPORT MENU ****k* *+* 
SESIGOLOR TO 20, 10 
ó 3, 15 SAY 'ARPLANE TYPE MENU“ 
0 3,60 SAY DATE () 
SET COLOR TO 30, 14 


© 4,1 SAY "OPTIONS ! 

Quo SAY ' 0 F-104! 
2 6, 1 SAY ' 1 puse 
oS SAY ' 2 F= 1025 
AS UA T? 3 C= 150" 


ÍL ži 


SEN 
5, 30 
6, 30 
J, 30 
8, 30 
Sue 


v y e © e € € 


e 


Fuil 
STORE 


WAIT TO choice 


ERASE 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


10,15 SAT 


SAY 


í t 


DO CASE 


CASE choice 


TO choice 


tot 


SET COLOR TO 20,10 


@ 14,30 SAY 


PARTS FOR F-104 


SET COLOR TO 30,14 


LIST FOk arpit 
CASE choice 


‘1° 


= 'F-104' 


SET COLOR TO 20,10 
@ 14,30 SAY PARIS OBCE 
SET COLOR TO 30,14 


LISI FOR arpit 
CASE choice 


2 


S 


SET COLOR TO 20510 


3 14,30 SAY 


PARTS OF FSA 


SET COLOR FO 50,19 


LIST FOR Tarp. eG 
CASE choice = 


(30 


= «p-102" 


SET COLOR 10 20 10 


A 14,30 SAY "PARTS Ec -0 


SET COLOR TO 3MM 


LIST FOR arpit 


CASE choice = 
SET COLOR TO 20.10 


d 14,30 SAY 


tye 


= 'C-130' 


PARTS OF F-4 
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4 Pi 
9 EM 
6 F-16713 
7 CT T 
8 FS rons 
B PRINT YOUR CHOICE 
X EXIT TO REPOMENU 
' OPTION: ' 


SET COLOR TO 30,14 
LIST FOR arplt = 'F-4' 
CASE choice = "5" 
SET COLCR TO 20,10 
2 14,30 SAY ' PARTS FOR F-5 « 
SET COLOR TO 30,14 
LIST FOR arplt = *F=5 ' 
CASE choice = "pi 
SET COLOR TO 20,10 
a 14,30 SAY ' PARTS FOR F-16' 
SET COLOR to 30,14 
LISI FOR arplt -— 17516. 
D 14,30 SAY 'PARTS FOR C-47 ' 
SET COLOR TO 30,14 
LIST FOR arplt - 'C-47 * 
CASE choice = “8! 
SET COLOR TO 20,10 
a 19,30 SAY ' PARTS FOR Fado ' 
SET COLOR TO 30,14 
LIST FOR arplt = 'F-18 * 
CASE choice = AC 
SET PRINT ON 


LOOP 
CASE choice = 'X* .OR. choice = ‘x! 
SEL PRINT OFF 
RETURN 
ENLCA SE 


SET ALTERNATE OFF 
STORE * © TO manswer 
SETWEGLOK “TO 20, 10 
MOCI ENIE A Y IP YOU WISH "ANOTHER LISTING, " 
SLI COLCE 1930, 14 
ERASE 
IF manswer = 'y' .OR. manswer = 'Y' 
SET FRINI OFF 


U, 


LOOP 
ELSE 
RETURN 
ENDIF 
ENDDC 
ENDDO WHILE 


kk kk k kk k kk k kk kk Rewstr.prg AAA AA AK HE kok olakok lakol kk kok kok KEK KK 


* AUTHOR : KONDYLOPOULOS HARALABOS 

* DATE : 11-14-85 

* PURPOSE : THIS PROGRAM LISTS THE INVENTORY OF THE 
& : HEAPON STORES 


k kk k k koko skok kk k k ak Akk skok sk sk aco e sk k kk kk sk hh skok akak k kkk k kk k k k k kk k 
SET PRINT OFF 
SET ESCAPE OFF 
SET COLOR TO 30,14 
SET TALK OFF 
SET ALTERNATE TO rewstr.txt 
SET ALTERNATE ON 
ERASE 
Ď 2,18 SAY "422224880 INVENTORY LISTING? -r 
SET COLOR TO 20; lO 
D 2,60 SAY DATE () 
SET. COLOR TO. 307 14 
USE wstores 
@ 10,18 SAY “INDEXING..... PLEASE BE PATE 
d 16,18 SAY ‘IF YOU WANT TO CANCEL. PLEASE HIT <ESCAPE> “" 
STORE CE: TOM Lag 
DOr WHILE flag 
ERASE 
STORE “See TO ngucry 
ACCEPT “™ PRINTED INVENTORY ? Y/N “ TO mquery 
ERASE 
IF mquery = 'Y'.OR. mquery = '“Y' 
SET PRINT ON 


JE, 


STORE 1 TO c 
DO WHILE c<5 
SET COLOR TO 20,10 
SET PRINT ON 
à 12,20 SAY 'SET PRINTER ON PLEASE' 
0 12,50 SAY CHR(7) 
STORE ct1 TO c 
SET COLOR TO 30,14 
EN DDO WHILE 
ELSE 
SET PRINT OFF 
ENDIF 
STORE t TO xflag 
DO WHILE xílag 
ERASE 
SET COLOR TO 112,140 
3 11,15 SAY ' IF YOU WANT TO FREEZE THE SCREEN ", * 
à 12,15 SAY ' DURING THE LISTINGHIT CTRL NUM LOCK." 
à 13,16 SAY ' PRESS ANY KEY TO CONTINUE ' 
SET COLOR TO 30, 14 | 
à 1,5 SAY ! *****x<x** REPORT MENU ****x<*+**“* 
SET COLOR TO 20, 10 
d 3,15 SAY "ARPLANE TYPE MENU" 
0 3,60 SAY DATE () 
SET COLOR TO 30, 14 


D 4,1 SAY OPTIONS ' 

@ 5, 1 SAY ' 0 ESTOY 

Deo, 1 SAY * 1 Bi so 

DEN I SAY! 2 Be: 

MAWON SAY. 3 3 C= 1350" 

meg, | SAY © 4 pup 

Doo, our SAY * 5 Eo SA 
G 60; ,Ə30RSAY ' 6 Falo Ts 
d 7,30 SAY ' 7 CS]. 
DESI SU SAY. 8 EM 


| z 


0 9,30 SAY ' 9 PRINT YOUR CHO RC ES 
o 10015 152101 EXIT TO RFEOMENDS 
o 17,1 SAY “OPTION:" 
STORE ' ' TO choice 
WAIT TO choice 
ERASE 
DO CASE 
CASE choice - '0' 
SET COLOR TO 20, 10 
d 14,30 SAY “ PARTS FOR 0210] 
SET COLOR TO 30,14 
LIST FOR arplt = "F- 104" 
CASE choice = ‘1! 
SET COLOR TO 20710 
O 14,30 SAY “PARIS OF F=]! 
SET COLOR TO 30,14 
LIST FOR arplt - "F-1.! 
CASE choice = 17“ 
SET COLOR TO 200 
d 14,30 SAY © PARTS OF 2-107 
SED COLOR TO 30519 
LIST FOR arplt = "F- 102"! 
CASE choice = ‘3! 
SET COLOR TO -20,10 
@ 14,30 SAY “PARTS 01 610304 
SET COLOR TO 305014 
LIST FOR arplt 5 62 1309 
CASE choice = '4' 
SET COLOR TO 2000 
@ 14,30 SAY * PARTS QF F-ü "° 
SET COLOR TO 30,14 
LIST FOR arplt = 'F-4! 
CASE choice = 15! 
SET COLOR TO 2050 
da 14,30 SAY * PARIS FU OSN 


SET COLOR TO 30,14 
CIS FOR arpit = 'F-5 * 
CASE choice = "6" 
SET COLOR TO 20/10 
d 14,30 SAY ' PABTS FOR F-16' 
SET COLOB to 30,14 
LIST FOR arplt = ‘r-16! 
CASE choice = ‘7! 
SET COLOR TO 20,10 
d 14,30 SAY "PARTS FOR C-47 ' 
SEY COLOR TO 30,14 
BIS FOR arplt = *c-47 * 
CASE choice = ‘8! 
Sem COLOR TO 20,10 
@ 14,30 SAY * PARTS FOR F-18 ' 
SET COLOR TO 30,14 
LISI FOR arpit = *P=18 ' 
CASE choice = ‘9! 
SET “PRINT ON 


LOOP 
CASE choice = 'X' OR. choice = ‘x! 
SEI PRINT OFF 
RETURN 
ENDCASE 


Spl ALTERNATE OFF 

STORE * © TO manswer 

SET COLOR TO 20, 10 

Ale ee A Y TE YOU WISH ANCTHER LISTING, " 
? "ELSE ENTER N " TO manswer 

SET COLOR TO 30, 14 


ERASE 

IF manswer = 'y' .0R. manswer z 'Y' 
SET PRINT OFF 
LOOP 

ELSE 
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KETURN 
ENDIF 
ENDDO 
ENDDO WHILE 
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* AUTHOR z KONDYLOPOULOS HARALABOS 

* DATE s mM 15-05 

* PURPOSE =: THIS PROGRAM LiSTIS TEL TYSON Oh 
* ; THE ACCESSOR DES Wovens 


TEE EE EE E EE e K OR KOR E EE EE EE kok ok ok kok kkk kok ak KOR ak ok ak K 
SE Orr 
SET ESCAPE OEF 
SET COLGR TO 30, 14 
SEP TALK OPE 
SET ALTERNATE TO LeacsStr. tet 
SET ALTERNATE ON 
ERASE 
@ 2,18 SAY H**kžkk*kO INVENTORY LISTING '*FEREEREREN 
SET COLOR TO 20, 10 
0 2,060 SAY DATE () 
SET COLCh TO” 305 16 
USE acstores 
© 10,18 SAY 'INDEXING..... PLEASE BE PATIPH D 
Q 16,18 SAY ‘IF YOU WANT TO CANCEL, PLEASE HIT ESENE E 
STORE t TO tlag 
DO WHILE flag 
ERASE 
STORE " * TO mquery 
ACCEPT " PRINIED INVENTORY ? YAN “ TO ngasuy 
ERASE 
IF mquery - 'Y'.OR. mquery 
SET PRINT ON 
STORE 1 10 6 o 
DO WHILE c<5 


vy“ 


SETT COLOR TO 20, 10 
SET PRINT ON 
0 12,20 SAY “SEY PRINTER ON PLEASE? 
© 12,50 SAY CHR(7) 
STORE c+1 TO c 
SET COLOR TO 30, 14 
ENDDO WHILE 
ELSE 
SEI PRINT OFF 
ENDIF 
STORE t TO xflag 
DCO WHILE xflag 
ERASE 
SET COLOR TO 112,140 
I G SAY TTE YOU RANT TO FREEZE THE SCREEN 
DANU Zl SAY ' DÜRING THE LISTING HIT CTR NUM LOCK.* 
DZ 16 SAY PRESS ANY KEY TO CONTINUE." 
SET COLOR TO 30, 14 
à 1,5 SAY !*+****+** REPORT MENU **řkkí ký! 
SET COLOR TO 20510 
© 3,15 SAY 'AKPLANE TYPE MENU" 
9 3,60 SAY DATE (4 
SETE CODONJI O 39,14 


9 u,1 SAY 'OPTLONS ! 

3.571 SAY !' 0 F— 10113 

DO sl SAMY“ 1 pup me 

OM, V SAY! 2 F — 1925 

9 8,1 SAY ' 3 Caso! 

a 9 1 SAY T 4 pu 

905,039. SAY. 5 E 

D 6 SUSAN" 6 pelo? 

3730 SAY 7 7 C-47 S 

EE SO: SAY * 8 Bat o! 

12.530 SAY ' 9 PRINCE YOUR CHOICE ! 
5010715 SAY © X EXIT TO REPOMENU " 


12 


0 17,1 SAY 'OPTION:' 
STORE * * TOMenmoice 
WAIT TO choice 
ERASE 
DO CASE 
CASE choice - '0' 
SED COLGR T0 29 0 
A 14,30 SAY ' PARTS FOR F-104 " 
SEL COLORS 1O SONE 
LIST FOR arpit EE TOU 
CASE choice = '1' 
SET COLOR TO 20,10 
@ 14,30 SAY “PARIS OP P `]! 
SET COLOR TO 30,14 
LIST FOR arplt cav 
CASE choice = "2" 
SET COLCR TO 20710 
0 14,30 SAY ' PARIS OF F- 102% 
SET COLOR TO 30719 
11531 FOR arpit - 1-0 4 
CASE choice = "3" 
SET COLOR. 10 207109 
» 14,30 SAY ‘PARTS OPEN 
SET COLOR TO 30,14 
LIST FOR arpit = 26-130 
CASE choice < TU 
SEL. COLCE TO 2050 
à 14,30 SAY * PARTS 07 Fm 
SEI COLOR TO 30714 
LIST FOR arpit - r20. 
CASE choice = '5' 
SET COLOR TO 0 00 
@ 14,30 SAY * PARTS FOR IM 
SET COLOR TO 30,14 
LIST FOR arpit -E 
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CASE Choice = 16? 
SET COLOR TO 20,10 
DIOSA TOR PARTS FOR F-16"' 
SET COLOR to 30,14 
LIST FOR arplt = 'F-16! 

CASE choice = "7" 
SET COLOR TO 20,10 
@ 14,306@SAY “PARTS POR C-47-"' 
SET COLOR TO 30,14 
LIST FOR arplt = 'C-47 * 

CASE choice = "8" 
SET COLOR TO 20,10 
DEU dU SAY * PARTS FOR 7-15 ' 
SET COLOR TO 30,14 
LIST FOR arpit = ?F-]8 * 

CASE choice = ‘9! 
SET PRINT ON 


LOOP 
CASE choice = *X* .OR. choice = "x" 
SE J EIT OFF 
RETURN 
ENDCASE 


SET ALTERNATE ORP 
STORE ' ' TO manswer 
SET COLOR TO 20, 10 
ACCEPI “ENTER AY LF YOU WISH ANCTHER LISTING," 
2 " ELSE ENTER N " TO manswer 
Sra COLCA sne) 30, 14 
ERASE 
IF manswer = "y" „OR. manswer - 'Y' 
SET PRINT OFF 
LOOP 
ELSE 
RETURN 
ENDIF 


y 


ENDDO 
ENDDO WHILE 
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% AUTHOR 2 KONDYLOPOULOS HARALABOS 

* DATE < 5011-95 

* PURPOSE >: THIS PROGRAM SELECTS THE REQUIRED QUERY 
* z OPERATION, BY USING A MENU DRIVEN CHOICE 


x ok o oo o oC oco kok o kk kk JE AK ZAK ZAK IE DE DE ZAE AK DEO DE SE DE SR EC SE EC SE A A A 36 36 3 


SET ESCAPE OFF 
SELECT PRIMARY 
SET COLGR TO 20,5 
SET TALK OFF 
SET FOKMAT TO SCREEN 
SET CONSOLE ON 
DO WHILE t 
CLEAR 
ERASE 
D 1,15 SAY U****** 'AIBPLANE' PARTS SYSTEM !******* 
8 3,1 SAY 'QUEMENU' 


3 3,60 SAY DATE() 

A 7,1 SAY * OPTIONS:' 

à 9,1 SAY " O EXIT TO OPERATING SYSTEM" 

à 11,1 SAY ' 1 LOCATION OF À SPECIFIC PART ' 
à 13,1 SAY ' 2 COST OF A SPECIFIC PART IN ' 
d 14,17 SAY A GIVEN DATE ' 

0 15,1 SAY ' 3 NAME OF ORDERED ON A GIVEN ' 
0 16,17 SAY ' PART NUMBER AND DATE ' 

D 17,1 SAY ' 4 EXIT TO MAIN MENU" 

à 19,1 SAY * X EXIT TO DATABASE" 

0 21,1 SAY ' SELECT CHOICE ' 


STORE Y “TO CHOICE 
WAIT 10 choice 

DO CASE 

CASE choice - %%W 


CLEAR 
QUIT 
CASE choice 
DO quel 
USE 

CASE choice 
DO que2 
USE 

CASE choice 
DO que3 
USE 

CASE choice 
RETURN 
USE 

CASE choice 
CANCEL 

OTHERWISE 
STORES 1 
DO WHILE 


& 


121 


= ty 


10 Z 
Z<5 


OR. choice = *'x' 


) 30,5 SAY "INVALID CHOICE.... PLEASE TRY AGAIN " 
ð 31,5 SAY CHR (7) 


STORE 
EN LDO 
ENDCASE 


ENDDO WHILE t 


2-1 T0 7 
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AUTHOR : KONDYLOPCULOS HARALABOS 


DATE 


: 11-11 


D 


PURPOSE RS PROGRAM) PTNDS. A SPECIFIC PART FROM THE 


> INVENTORY 
* KK e e A KK KKK KKK KR KKK RR KK RK KKK RK KK KK KKK KK KK KKK KKK 


SET ESCAPE OFF 
SET COLCR TO 20, 14 
SET TALK OFF 


DOWN EE ESE 
SELECT PRIMARY 
USE parts INDEX parts 
STORE." ' TO mpno 
ERASE 
d 4,60 SAY DATE() 
A 15, 1 SAY "ENTER PART NUMBER " GET npno 
@ 23,1 SAY “ENTER A BLANK TO EXIJT TO OUEMENU“ 
READ 
SEL C OLCR TO 20,10 
® 1,56 SAY mpno 
pld (MOR (0 30, 14 
IF s(n rno, l, hF T 
RETURN 
ENDIF $(mpno,1,1)= if? 
o 1,15 SAY "LOCATION OF THE PART WITH PART NUHBERY UE 
FIND &mpno 
IF # = 0 
SET “COLOR TO 112, 140 
a 21,1 SAY “DOES NOT EXIST UNE v mmm 
d 22,40 SAY CHR(7) 
SET TALK OPE 
STORE TO x x 
DG WHILE xx<35 
STORE xx = 1-00 XX 
ENDDO WHILE xx<70 
SET COLOR TO 30,14 
LOOP 
ENDIF # = 0 
ERASE 
Qd 1,15 SAY 'LOCATION OF THE PART WITH PART NUMDEREES 
SET COLOR TO 20219 
3 1,356 SAY npno 
SET COLOR TO 307 14 
d 4,60 SAY DATE ( 


© 23,1 SAY “ENTER A BLANK TO EXIT TO OUEMENU" 
DO CASE 
CASE arstrna <> " : 
SELECT SECONDARY 
STORE ! ' TO aslfno 
USE arstores INDEX arstores 
FIND &p.pno 
gig «SAY “ DESCRIPTION 2" + p.desc 
D 8,1 SAY “ ARPLANE TYPE:“ + arplt 
0 9,1 SAY “ QOH Stolk (poegoh,>) 
údenú. | SAY COST 02+ IA. SOSt, 3) 
SET COLOR to 10,20 


OCA ts SHE PART STORE IS = alLSerna 


DR V SAY | THE PART SHELF NUMBER ES : "+ aslíno 
SEL COLCRSIO- 20, 10 
029.1 SNY © TO FREEZE THE SEREEN.. HIT NUI LOCK $ 
SET COLOR TO 30,14 | 
R EAD 
USE 
CLEAR 
CASE wstrna <> ' i 
SELECT SECONDARY 
STORES * ' TO wslfno 


USE wstores INDEX wstores 
FIND &p.pno 


d 6,1 SAY "DESCRIPTION :t + p.desc 

0 7,1 SAY 'ARPLAN TYPE T + arpit 

13 1 SA OU NET L ON HAND :“« + SPR(p. goh, 5) 
ag, 1 SAY COST SE tees COSEt , 3} 


SEISCODLCR TO 10,20 

@ 10,1 SAY 'THE STORE OF THE PART IS :'+ wstrna 
ONA TR SHELF OP THE PART IS :*+ wslfno 
ST COLOR TO 20,10 

SIT TO FREZE THE SCREEN.. HIT NOM LOCK * 
SED COLOR TO 30, 14 


R EAD 
C LEAR 
LOOP 
CASE jana S ' 
SELECT SECONDARY 
STORE,” ' TO JSL£f QO 
USE junstores INDEX junstores 
FIND €p.pno 
a 6,1 SAY "DESCRIPTION :* +p.desc 
0 7,1 SAY 'QUAN ON HAND:' t STR(p.goh,5) 
à 3,1 SAY 'COST 2" + STRIC En 
SET COLORTIO GTO, 20 
3 9,1 SAY * THE STORE OF THE PART [5 aaa 
© 10,1 SAY "THE SHELF OF THE PARI IS 2*5 bm 
SET COBCR 10 20,10 
0 23,1 SAY "TO FREEZE THE SCREEN..HII NUNE COC KE 
SET COLCR TO 30,14 | 


R EAD 
C LEAR 
LOOP 
ČASE. destina. "<> Y ' 
SELECT SECONDARY 
STORE! t TO acslfno 


USE acstores INDEX acstores 
FIND &p.pno 


D O1 SAYTIDESCRIPTION :t + p.desc 

O 7,1 SAY 'ARPL TYPE 3° +p. appre 

d 8,1 SAY 'QUAN ON HAND :" t STR(p.goh,5) 
o 9.1 SAL COST : + STRÍ(Íp.COSONY 


SELL OEM TO 10,20 

M 10,1 SAY THE PART STORE IS s“ 1+4 s 0000 

0 11,1 SAY “THE PART SHELF IS +1 n 

SET «COLCR “TO 20 109 

0 23,1 SAY * TO FREEZE THE SCREEN 11 dO S 
SET COLOR TO 30,14 


R EAD 
CLEAR 
L COP 

OTHER WISE 
DMO ORSAY THIS TS NOT PART OF THE INVENTORY ' 
CLEAR 
L COP 

ENDCA SE 

ENDDO WHILE t 
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* AUTHOR : KONDYLOPOULOS HARALABOS 

* DATE 22511518785 

* PURPOSE << THIS PROGRAM FINDS THE QUANTITY AND THE COST 
k INCA SEE CIFEC PART TINTA SPECIFIC TINE. 


x tete de tete dd A k kok kok kok kok ke kok kkk ok dk kk ok kok ok kk 
ETT COLOR TO 30, 14 

SET ESCAPE OFF 

SET TALK OFF 

ERASE 

SELECT PRIMARY 

USE orders INDEX pno 

CHORE t TO flag 


* Create a continue loop 


DPO WHILE t 
STORE * * TO anSwer 
STORE * SLO i pune 


® 15,1 SAY "ENTER PART NUMBER * GET mpno 
* If it is selection of new part for the same date 
IF flag 
STORE ' * To ndate 
0 4,60 SAY DATE() 
a 17,1 SAY “ENTER THE DATE" GET udate PICTURE "99-99- 99" 
ENDIF 
READ 


* Return to quemenu for a blank entry 
IF $(mpno,1,1)= ' § 
RETURN 
ENDIF 
ERASE 
FIND &mpno 
IF # = 0 
DO error 
ENDIF 
STORE 0 TO count 
STORE 0 TO temp 


* Look up all the file for a specific parti and date 


DO WHILE pno = mpno .AND. .NOT. EOF 
IF date = mdate 
ERASE 
OMC, IN SATUCHR (7) 
SET COLOR pO 20 18 
OTSA Ye OUANT BUY Cost 
SET COLOR TO 30,14 
A 10+count,3 SAY tqnt 
A 104count,17 SAY tcost 
STORE cost*qnt TO excost 
o 10tcount,36 SAY texcost 
STORE excost+temp TO temp 
STORE -COUnt+] TO count 
ENDIF 

SKIP 

ENDDO WHILE 

o 15,15 SAY "THE TOTAL COST OF [Ht mini = 

SEE (COROR e205 20 210 

A 15,49 SAY +temp 

STORE l TO XxX 

DO WHILE xx<50 

STORE xxx DOE 
ENDDO 
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EXTER COST! 


ERASE 
SET COLOR TO 30.4 
DO WHILE .NOT. ( (answer) = 'N' .OR. (answer) = 'C') 
STORE *C* TO answer 
SET COLCR TO 112,140 
© 22,10 SAY * ENTER AN ACTION 
A 22,57 GET answer I 
ð 23,10 SAY 'C = CONTINUE WITH NEXT PART NUMBER ' 
a 23, 11 SAY ' N TO EXIT TO QUEMENU ' 
SET COLCR TO 30,14 
R EAD 
IF .NOT. ( (answer) - 'N' .OR. (answer) = 'C' ) 
DO error 
STORE ' * TO answer 
ENDIF 
ENDDO WHILE 
DO CASE 
CASE (answer) - 'c' 
* Ask a new part number in the same date 
STORE £ TO flag 
LOOP 
CASE (answer) = 'N' 
* Ask a new date for the same part number 
RETURN 
ENDCASE 
ENDDO WHILE 


doxokotototototeleleteteletetek QUE. DE A A ll He He HE HO ACC He ke K 


* AUTHOR Z KONDYLOPOULOS HARALABOS 

* DATE zami li —18—65 

NE [5POSE =: THIS PROGRAM FINDS THE NAME OF IHE 

= > PURCHASING AGENT,AND THE TIME OF THE ORDER 
* FOR A SPECIFIC PART. 


AR ARA W ke he Be Mk hd doko kK RR Sc Me Kk RK kok k KOK KOR k kokk ke de 


SET COLOR TO 30, 14 


1855 


SET ESCAPE OFE 

SETA IRUK OFF 

ERASE 

SELECT PRIMARY 

USE orders INDEX pno 
STORE t TO flag 


* Create a continue loop 


DO WHILE t 
STCRE ' *' TO answer 
STORE `! ' TO mpno 


0 15,1 SAY “ENTER PART NUMBER "V GEmMmnpno 
* If it is selection of new part for the same date 
IF flag 
STORE I ' TO mdate 
0 4,60 SAY DATE() 
Qd 17,1 SAY ' ENTER THE DATE' GET mdate PICTURE '99-99-99! 
ENDI F 
READ 
* Return to quemenu for a blank entry 
IE $ (mpnoa, 1, 1)= “wi 


RETURN 
ENDIF 
ERASE 
FIND &mpno 
IF # = O 

DO error 
ENDIF 


SIORE O72 Oscount 
STORE 0 TO temp 
* Look up all the file for a specific parti and date 
IF date = mdate .AND. pno = mpno 
ERASE 
0 6,1 SAY CHR (7) 
SET COLOR TO 20.10 
© 7,1 SAY 'PA NUMR - ORDERED NAME — EXTER CO 04 
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SET COLOR TO 50, 14 
o 10+count,3 SAY +pno 
o 10+count,17 SAY tordna 
STORE cost*qnt TO excost 
o 10+count,36 SAY texcost 
ENDIF 
915.15 SAY "111E: ORDERLED NAME IS s" 
SET COLOR TO 20,10 
d 15,37 SAY tordna 
STORE 1 TO xx 
DO WHILE xx<50 
SIOLE XX+] TO xx 


ENDDO 
ERAS E 

SET COLOR TO 30,14 

DO WHILE .NOT. ( (answer) = 'N' .OR. (answer) = *C') 


STORE *C* TO answer 

SET COLOR TO 112,140 

22,10 SAY * ENTER AN ACTION 

@ 22,57 GET answer 

@ 23,10 SAY 'C = CONTINUE WITH NEXT PART NUMBER " 
® 23,11 SAY ! N = EXIT TO QUEMEND * 

SET COLOR TO 30,14 


e 


R EAD 
IF .NOT. ( (answer) = "N" „OR. (answer) = 'C' ) 
DO error 
STORE ' ! TO answer 
ENDIF 
ENDDO 
DO CASE 


CASE (answer) = "C! 

* ASk a new part_number in the same date 
STORE JO flag 
LOOP 


CASE (answer) = 'N' 


I5 


* Ask a new order nunber for the different date 
RE TURN 
ENDCASE 
ENDDO WHILE t 
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* AUTHOR z KONDYLOPOULOS HARALABOS 
* DATE -65 
* PURPOSE  : THIS ROUTINE FLASHES A BAD INPUT MESSAGE 
xXx x k sk k ke k tok ak kok kk sk k k skok sk kak ka kk sk sle oe oe oe sk sk k kok dak kak ake kok ke ak ak ke oak ak ok ok ak 
SET COLOR TO Errcolor berrcotor 
SOR E | LO xx 
DO WHILE xx<8 
o 20,50 SAY “BAD INPUT " 
0 2152 50 SAY 'CHECK YOUR INPUT ' 
22,50 SAY 'AND TRY AGAIN ' 
ð 22,65 SAY CHR(7) 
STORE AA t | TO xx 
ENDDO WHILE 
ERASE 
SET” COLOR TO mScolor ceslorF 
RETURN 


APPENDIX B 
DEFINITIONS OF THE DATABASE [REF 2] 


Binding is the process of fixing data or processing all 
relationships which are used to generate informations that 
must be bound. Binding frequently takes place years before 
a new database system becomes operational. 

Scleweae von on a database denotes a section of an applica- 
tion on the database as: 


EE at ka To oue ne data collection that includes data 
Soli kleči fon atra organization, and data storage. 


b. Updating of a database that includes the addition of 
new data, the changing of the values, and the deletion 
of data. 


61 0//r.l netrIieva] tnat can consist of the fetching of a 
Specific element in order to get a stored value or fact. 
To fetch a specific data record, the database uses a 
search argument, which is matched with a key in the 
database records. 


GRAN CE ije romov la rpe quantity of data to usable form we 

le AE emas volume summarization of data presented in 
manageable and usable form. Some of the common used 
techniques are: statistical summaries and annual business 
operating statements. 

E base is a shared collection of inter-related data de- 

Sened to meet the varied information needs of an organization. 

Database Management System (DBMS) is a software system that 


PEMEOTMo (carries out) all user's requests for data. User's 


Mmauests may be an Update or a retrieval. 


Database system is a system to record and maintain informa- 
tion tha 15 significant to organization in the decision- 
making processes. 

Files is a term in the computer terminology where data is 
stored more-or-less permanently in a computer and than 
grams that manipulate Iit- 

Flowcharts is a way of describing complex processes and 
data flow by using a graphic description. There are tt 4 
types of activities: control flow, control-data flov W nan 
data flow. 


a. Control flow is the sequence of instructions by pros 
inc unit. 


b. Control-data flow is the flow of data elements tho 
effect the control flow of the" commu dE 


c. Data flow is the typical flow between files and: 
Or output devices: 


Input-Output consists of internal and external transten Men 
data. Internal when reading or writing files where data is 
transferred between storage unit of the computer and ma 
when reading input or writing output. Database is concermes 
with data which remains within the scope 61 thew: S ie 
Processes are the basic computational units managed MM 
operating system. The scheduling and performance of proces» 
and hence of the computations that were specified determi. 
the performance of database systems. 

Record is a collection of similar records kept on a Secom EEE 


computer storage de uces 
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Bee lotic dguantity ot data to be handled, and depends on 





the hardware and operational constraints which may apply 


in a given environment. 
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APPENDIX C 


DBASE II COMMAND SUMMARY [REF. 17] 


? -- displays an expression, Variable, or field. 
?? -- displays an expression list without a preceding 
line feed. 
@ -- displays user formatted data on screen or printer. 
ACCEPT -- allows input of character strings into memory 
variables. 
APEND -- append information from another dBASE II database 
or files in Delimited or System Data format. 
BROWSE -- full screen window viewing and editing of 
database. 
CANCEL -- cancels command file execution. 
CHANGE -- Non-Full-Screen edit of fields of database. 
CLEAR -- closes databases in use and releases current 
memory variables. 
CONTINUES -- continue the searching action of a LOCATE 
command. 
COPY -- creates a copy of an existing database. 
COUNT -- counts the number of records in file which 
meet some criteria. 
CREATE -- creates new database. 
DELETE -- deletes a file or marks records for deletion. 
DISPLAY -- display files, database records or 
Structure, memory variables, or status. 
DO -- executes command files or structured loops in same. 
EDIT -- initiates edit of records in a database. 
EJECT -- ejects a page on the printer. 
ELSE -- alternate path of command execution within IF. 
ENDCASE -- terminates a CASE command. 
ENDDO -- terminates DO WHILE command. 
ENDIF -- terminates an IF command. 
ENDTEXT -- terminates a TEXT command. 
ERASE -- clears the screen. 
FIND -- positions to record corresponding to key in 
index file. 
GO or GOTO -- positions to specific record or place 
in file: 
HELP -- access help file overview or specific help 
file entry. 
IF -- allows conditional execution of commands. 
INDEX -- creates an index file. 
INPUT -- allows input of expressions into memory 
variables. 
INSERT -- insert new record in database. 
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JOIN -- joins output of two databases. 


LIST -- lists files, database records or structure, 
memory variables, and status. 
LOCATE -- find a record that fits a condition. 

LOOP -- ski ps to beginning of DO WHILE command. 
MODIFY -- create and/or edit command file or modify 
structure of existing database. 

NOTE or % -- allows insertion of comments in command 
file. 

PACK -- erases records marked for deletion. 

QUIT -- exits dBASE and returns to operating system. 

READ -- initiates full-screen editing or formatted 


screen by accepting input into variables 
accessed with a GET. 


RECALL -- erases mark for deletion. 
REINDEX -- update existing index file. 
RELEASE -- eliminates unwanted memory variables and 
releases memory space. 
REMARK -- permits display of any characters. 
RENAME -- rename a file. 
REPLACE -- change information in record(s) or entire 
database field by field. 
REPORT -- format and display a report of information. 
RESET -- reset operating system after placing new disk 
in drive. 
RESTORE -- retrieves memory variables stored in MEM file. 
RETURN -- ends a command file. 
SAVE -- copies current memory variables to disk file. 
SELECT -- switches between USE files in PRIMARY and 
| SECONDARY areas. 
SET -- sets dBASE control parameters. 
SKIP -- position forwards or backward in database. 
SORT -- write copy of database sorted on one of the 
data fields. 
STORE -- creates memory variables. 
SUM -- compute and display the sum of database 
field(s). 
TEXT -- allows output of block of text from a 
command file. 
TOTAL -- creates summary copy of database 


combining information from specified 
fields of records meeting some 


criteria. 
UPDATE -- allows batch updates of a database. 
USE -- specifies database to USE until next 
USE command is issued. 
WAIT -- suspends command file processing until 


user input received. 
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APPENDIX D 


DBASE II FUNCTIONS [REF. 17] 


> 8 -- @(<estringl>, <cstring2>) -- AT function yields an 
integer whose value is the character number in 
<cestring2> which begins a substring identical to 
<cstringl>. 


* -- deleted record function evaluates as a logical TRUE 
if current record has been marked for deletion. 


# -- record number function reports value of integer 
corresponding to current record number. 


! -- !(<cstring>) -- uppercase function yields <cstring> 
in uppercase characters. 


$ -- $(<cstring>, <start>, <length>) -- substring function 
forms a character string from the specified part of 
another another string. 


CHR -- CHR(<numeric exp>) -- yields the ASCII character 
eguivalent of the <numeric exp>. e.g., ? CHR (7) 
rings the bell. 


DATE() -- returns the character string that contains the 
System Date in format xx/xx/xx. 


EOF -- end-of-file function evaluates as True if an 
attempt has been made to go past the last record 
in a database. 


FILE -- FILE(<file>) -- existence function evaluates as a 
logical False if it does not. 


INT -- INT (<numeric exp>) -- integer function truncates 
everything to right of decimal to form an integer. 


LEN -- LEN(<cstring>) -- length function retuune tne 
number of characters in <cstring>. ? LEN('HELLO' ) 


RANK -- RANK(<cstring>) -- returns the (ASCII numeric) 
value of the leftmost character of <cstring>. 


STR -- STR (<numeric exp>, <width> [,<decimals>]) -- 


string function converts a numeric expression 
into a character string. 
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< TEST -- TEST(<exp>) -- used with ? and IF, test function 
determines if <exp> is valid and parsable. A valid 
<exp> returns a value # 0; an invalid <exp> a value 
of 0. 


< TRIM -- TRIM (<cstring>) - trim function removes trailing 
blanks from <c-string>. ? TRIM(FIRST) + ''+ LAST. 


< TYPE -- TYPE(<exp>) -- function yields a one-character 
sering that contains a C',. 'N', "L, or "U" if the 
<exp. is of type character, Numeric, Logical, or 


Undefined. 

< VAL -- VAL (<cstring>) -- value function converts a character 
string made of numerals into a numeric expression 
[Ref. 17]. 
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APPENDIX E 


DBASE II LIMITATIONS AND CONSTRAINTS [REF. 17] 


number fields/record 32 max 
number chars/record 1000 max 
number records/database 65535 max 
number chars/cstring 254 max 
accuracy numeric fields 10 digits 
largest number 1.8 x 107##63 appre“ 
number current memyars 64 max 
number chars/command line 254 max 
number <exp>s in SUM command 5 max 
number chars in REPORT header 254 max 
number fields in REPORT 24 max 
number chars in index key 99 max 
number of pending GETS 64 max 
number of files open at one tim 16 max 
length of .PRG file unlimited 
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